// первая
Var
S,i,N:integer;
Begin
WriteLn('Введи N');
ReadLn(N);
For i:= 1 to N do
S:=S+i;
WriteLn(S);
ReadLn
End.

// вторая
Var
S,i,N:integer;
Begin
WriteLn('Введи N');
ReadLn(N);
For i:= 1 to N do
S:=S+i*i;
WriteLn(S);
ReadLn
End.


// третья
Var
S,i,N:integer;
Begin
WriteLn('Введи N');
ReadLn(N);
For i:= 1 to N do
if (i mod 2=0) then S:=S+i;
WriteLn(S);
ReadLn
End.

// четвёртая
Var
S,i:integer;
Begin
For i:= 1 to 100 do
if (i>9)and(i<100) then S:=S+i;
WriteLn(S);
ReadLn
End.