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

var
X, A, Y: real;

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