напечатать таблицу стоимости 100, 200, 300,...., 2000г конфет ( стоимость 1 кг конфет вводится с клавиатуры) . Среда кумир, цикл для. помогите срочно надо.

+ 0 -

Mayweather21

22 мая 2013 г., 17:12:50 (10 лет назад)

Program serqaz123_sweets;
uses crt;
const
  shag = 100;
  max=2000;
var
  i:integer;
  price:real;
begin
  write('Введите стоимость 1 кг конфет: '); readln(price);
  writeln();
  writeln('+--------------------------------------+');
  writeln('|       Таблица стоимости конфет       |');
  writeln('+--------------------------------------+');
  writeln('|       Вес       |     Стоимость      |');
  writeln('|     (грамм)     |      (денег)       |');
  writeln('+--------------------------------------+');
  for i:=1 to 20 do
      writeln('|     ',i*100:5,'       |  ',(i/10)*price:11:2,'       | ');
  writeln('+--------------------------------------+');
end.