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

Question

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

Answer 1

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