Сколько стоят конфеты

Begin33. Известно, что X кг конфет стоит A рублей. Определить, сколько стоит 1 кг и Y кг этих же конфет.

var
  X, A, Y: real;

begin
  write('X = ');
  readln(X); { <-- Вводим вес конфет }
  write('A = ');
  readln(A); { <-- Вводим стоимость конфет }
  A := A / X; { <-- Стоимость 1 кг конфет }
  writeln('Стоимость 1 кг конфет: ', A:0:2, ' рублей');
  write('Y = ');
  readln(Y); { <-- Вводим другой вес конфет }
  A := A * Y; { <-- Стоимость Y кг конфет }
  writeln('Стоимость ', Y, ' кг конфет: ', A:0:2, ' рублей');
  readln
end.

$1 $2Begin34. Известно, что X кг шоколадных конфет стоит A рублей, а Y кг ирисок стоит B рублей. Определить, сколько стоит 1 кг шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.

var
  X, A, Y, B: real;

begin
  writeln('Сколько у вас шоколадных конфет(в килограммах)?');
  readln(X); { <-- Вводим вес шоколадных конфет }
  writeln('Какая стоимость этих конфет?');
  readln(A); { <-- Стоимость шоколадных конфет }
  writeln('Сколько килограмм ирисок вы имеете?');
  readln(Y); { <-- Вводим вес ирисок }
  writeln('Какая стоимость ирисок?');
  readln(B); { <-- Вводим стоимость ирисок }
  writeln;
  A := A / X; { <-- цена 1 кг шоколадных конфет }
  writeln('Цена(в рублях) 1 кг шоколадных конфет: ', A:0:2);
  B := B / Y; { <-- цена 1 кг ирисок }
  writeln('Цена(в рублях) 1 кг ирисок: ', B:0:2);
  A := A / B; { <-- отношение двух цен }
  writeln('Шоколадные конфеты дороже ирисок в ', A, ' раз');
  readln
end.

$1 $2Посмотрите ещё задачи о стоимости конфет.