Напишите программу которая вычисляет сумму всех двухзначных чисел

Question

Напишите программу которая вычисляет сумму всех двухзначных чисел

Answer 1

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