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

var

a, b, c: integer;

begin

readln (a, b);

if (a mod 2 =0) then

begin

c=a*b;

end

else

c=a+b;

writeln (c);

end.

Program SANTACH;

var a,b:real;

begit

writeln('a,b');

readln(a,b);

y:=a+b;

Writeln('a=',a:6*2; b=',b:6:2);

reagdln;

end.

есть 1 ошибка но все ок