Известно, что 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.