Ответ: vari:integer;c:real;beginreadln(c);Repeat     i:=i+100;         writeln(i,’g: ‘,c*0.001*i);until i>=2000end.