Напечатать таблицу соответствия между весом в фунтах и весом в килограммах 1, 2, 10 фунтов (1 фунт= 453 гр.) в pascal. abc обязательно должна выводиться таблица.

Var i: integer;
begin
for i:=1 to 10 do
writeln (i:2,' фунт (-а,-ов) равно ',i*453/1000:0:3,' килограмма')
end.

или

var i: integer;
begin
writeln ('Фунты     Килограммы');
for i:=1 to 10 do
writeln (i:3,i*453/1000:15:3)
end.