с клавиатуры вводится два числа. Если они оба одного знака,тонайдите их полусумму,иначе-вычислите их полупроизведение.
Нужно написать блок схему и программу на языке паскаль,заранее спасибо

var a,b,c:real;beginwriteln('Введите 1 число');readln(a);writeln('Введите 2 число');readln(b);if ((a<0) and(b<0))or((a>0) and (b>0)) then c:=(a+b)/2else c:=(a*b)/2;writeln(c);end.