Определите результат выполнения фрагмента программы:

Задание 1

For i:=1 to 10 do

Begin

Writeln (i);

End;

Задание 2

k:=3;

while k>0 do

begin

       s:=k*k;

k:=k+1;

end;

Задание 3

k:=1;

repeat

write (k);

       k:=k+1;

until k>10;