Вывести ** экран таблицу соответствия между весом в фунтах и весом в кг для значений от 1...

Question

Вывести на экран таблицу соответствия между весом в фунтах и весом в кг для значений от 1 до 20 с шагом в 1 фунт(1 фунт=400г)
Пример оформления результата:
1 фунт=0,4 кг
2 фунт+0,8 кг
.....
20 фунт=8 кг

program qq;
var a:real; b:integer;begin
for b:=1 to 20 do
a:=a+0.4;
writeln(b,'фунт =',a,'кг');
end.
Что здесь не хватает?
Помогите пожалуйста

Answer 1

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

Comments

Например:
For i:=1 to n do
begin
<Оператор 1>
<Оператор 2>
<...>
<Операция/Оператор n>
end;