Информатика 1. вычислить сумму однозначных чисел. 2.составить алгоритм, вычисляющий сумму двухзначных чисел от 20 до 45 включительно.

Var A,S:integer;
Begin
S:=0;
For A:= 1 to 9 do
    S:=S+A;
Write('S = ',S);
End.

Var A,S:integer;
Begin
S:=0;
For A:= 20 to 45 do
    S:=S+A;
Write('S = ',S);
End.