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.