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

Vari:integer;
c:real;
begin
readln(c);
Repeat
     i:=i+100; 
       writeln(i,'g: ',c*0.001*i);
until i>=2000
end.