Ответ:

Program zikl;

Var s, i:Integer;

Begin

s:=0;

for i:=1 to 3 do

begin

s:=s+1;

Writeln(s)

end;

End.

Выводит 1, 2, 3.

Если нужно до 4, то замени строку for i:=1 to 3 do, строкой: for i:=1 to 4 do