помогите Составить блок-схему и программу, в которой значение переменной вычисляется по формуле: 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.

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