program Hel;
var a: real;
begin
write('Цена за килограмм: ');
readln(a);
write('Можно купить ',1000/a:0:2,' килограмм конфет')
end.
program Hel;
var a: real;
begin
write('Цена за килограмм: ');
readln(a);
write('Можно купить ',1000/a:0:2,' килограмм конфет')
end.