Составить алгоритм суммы S всех двузначных чисел

Question

Составить алгоритм суммы S всех двузначных чисел

Answer 1

Var S,i:integer;
Begin
S:=0;
For i:= 10 to 99 do
    S:=S+i;
WriteLn('S = ',S);
End.