Известно, что X кг шоколадных конфет стоит A рублей, а Y кг ирисок стоит B рублей. Определить, сколько стоит 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.