Информатика 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.