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

Question

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

Answer 1

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.