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

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