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

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