i:=I+1;
Writeln(sqr(I));
Задание 2
C:=-5;
while C>0 do C:=C-2;
Writeln(C);
Задание
3I:=1;
P:=1;
while P<10 do
Begin
I:=I+1;
P:=P*I;
End;
Writeln(P,’ ‘,I);
Результат
I
P
P<10