Ответы и объяснения

2014-04-05T11:06:45+04:00
Var i: integer;
begin
for i:=1 to 10 do writeln(i, 'фунтов= ', I*453,'грамм' );
end.