Var I:integer;
uses crt;
begin
for I:=1 to 20 do
writeln(I, фунт = ,I×0.4, кг);
end.
P.S. НАДЕЮСЬ на Лучший ответ.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.