program sir;var y,x,h:real;beginx:=280;h:=0.1;while h<=1 do begin y:=x*h; writeln('Цена за ',h*1000,' грамм ',y,' руб'); h:=h+0.1 end;end.
program sir;
var y,x,h:real;
begin
x:=280;
h:=0.1;
while h<=1 do
begin
y:=x*h;
writeln('Цена за ',h*1000,' грамм ',y,' руб');
h:=h+0.1
end;
end.