Построение блок-схем 1. Найти сумму четных чисел из первых 10 натуральных чисел.…

Построение блок-схем 1. Найти сумму четных чисел из первых 10 натуральных чисел. Program Z31; Var N,S: integer; Begin S: =0; For N: =1 to 10 do If (N Mod 2)=0 Then S: =S+N; Writeln (‘сумма четных из первых 10 натуральных чисел равна ‘, S); End. 2. Наименование сезона по номеру месяца Program Z32; var Month: integer; Season: string; begin write ('Введите номер месяца: '); readln (Month); if (Month=1) or (Month=2) or (Month=12) then Season: ='Зима' else if (Month=3) or (Month=4) or (Month=5) then Season: ='Весна' else if (Month=6) or (Month=7) or (Month=8) then Season: ='Лето' else Season: ='Осень'; writeln ('Это ',Season) end.