вывести ** экран таблицу стоимости сыра в диапазоне от 100 до 1000 г,шагом=100,цена кг...

Question

вывести на экран таблицу стоимости сыра в диапазоне от 100 до 1000 г,шагом=100,цена кг сыра 280 рублей...помогите пожалуйста

Answer 1

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