Составить блок-схему и программу, в которой значение переменной вычисляется по формуле: a + b, если а – нечетное и a*b, если а – четное (условие четности числа: а mod 2 = 0

Program SANTACH;

var a,b:real;

begit

Write('a='),Riadln('a');

Write('b=');Riadln('b');

a:=a*b;

Write(a:*;b:=;ab);

end.

на программу но тут есть пару ошибок но все в теме

1) 

var X:array[12] of real;

i: integer;

 

begin

   for i:=1 to 12 do

   begin

      readln(X[i]);

      X[i]:=X[i]-23;

   end;

   for i:=1 to 12 do

      writeln(X[i])

end.

2)

var M:array[100] of integer;

i: integer;

begin

   for i:=1 to 100 do begin

      readln(M[i]);

       if(M[i] mod 2=0) then M[i]:=M[i]*M[i]

       else  M[i]=2*M[i];

   end;   

   for i:=1 to 100 do

      writeln(M[i]);

end.

3)

var price:array[20] of real;

i:integer;

minprice:real;

begin

   minprice:=10000;

   for i:=1 to 20 do

   begin

      readln(price[i]);

      if (price[i]<minprice) then minprice:=price[i];

   end;

   writeln(minprice)

end.

4) 

var M:array[100] of integer;

i, counter: integer;

begin

   readln(M[1]);

   counter:=0;

   for i:=2 to 100 do begin

      readln(M[i]);

      if ((M[i] mod 2=1) and (M[i-1] mod 2=1)) then inc(counter);

   end;

   writeln(counter)

end.

В цикле, кажется, так:

for I:=1 to N do 

If (Mas[I] mod 2 = 0) and (Mas[I] mod 3 = 0) and (Mas[I+1] mod 2 = 0) and (Mas[I+1] mod 3 = 0)

then Sum:=Sum+1;

 

Перед этим, конечно, нужно заполнить массив. N - число элементов и обнулить сумму. Можно заполнить в том же цикле:

Sum:=0;

writeln ('Число элементов:');

readln(n);

writeln ('Числа:')

for I:=1 to N do begin

readln (Mas[I]);

If (Mas[I] mod 2 = 0) and (Mas[I] mod 3 = 0) and (Mas[I+1] mod 2 = 0) and (Mas[I+1] mod 3 = 0)

then Sum:=Sum+1;

end;

writeln ('Sum=',Sum);