Вывести на экран таблицу соответствия между весом в фунтах и весом в кг для значений от 1 до 20 с шагом в 1 фунт(1 фунт=400г)Пример оформления результата:1 фунт=0,4 кг2 фунт+0,8 кг.....20 фунт=8 кгprogram qq;var a:real; b:integer;beginfor b:=1 to 20 do a:=a+0.4;writeln(b,фунт =,a,кг);end.Что здесь не хватает?Помогите пожалуйста

Ну как чего не хватает... У тебя в цикле for несколько операций (Счетчик и вывод) - для этих моментов (Много операций в цикле) используется begin end;