program klg;
var X_kilo, Price_x_kilo, Y_kilo, Price_y_kilo, Price_one_kilo: real;
begin
write('Введите количество килограмм: ');
read(X_kilo);
write('Введите стоимость конфет: ');
read(Price_x_kilo);
Price_one_kilo := Price_x_kilo / X_kilo;
writeln('Стоимость 1 кг. конфет -- ', Price_one_kilo:5:1);
write('Введите количество кг.: ');
read(Y_kilo);
Price_y_kilo := Y_kilo * Price_one_kilo;
writeln('Цена конфет за ', Y_kilo, ' кг. конфет равна -- ', Price_y_kilo:5:1);
end.