Урок 15-17 февраля

 

var x, c:real;   var i: integer;

begin

write(' введите стоимость кг');

read (x);

for i:=1 to 10 do

begin

c:=i*x/10;

writeln('(вес г',i*100);

writeln('стоимость руб',c,')');

end;

end.