liana162 Цикл оформляется с помощью трёх конструкций: начала цикла, конца цикла и команды выхода из цикла.

serbinvova1337 Program AUE
var a,b: integer;
begin
a:=20
for b:=1 to 20 do
a:=a+b
writeln(a);
end.