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

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.