Построение блок-схем  
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.