Напечатать таблицу соответствия между весом в фунтах и весом в кг (1 фунт = 400г) для значений от 1 до 20 фунтов с шагом 1 фунт.

Program table;
var
f, i: integer;
k: real;
begin
for i := 1 to 20 do
writeln(i, ' (фунт) = ', (i * 0.4):1:3, ' (кг)');
end.