Ввести два числа a и b.положительные числа уменьшить в 1,5 раза отрицательные -увеличить на 5. составить алгоритм в виде блок-схемы и программу.

Var A,B:real; 
begin
writeln('Введите числа А и В');Readln(A,B);
if A < 0 then A:=A +5;if B < 0 then B:= B +5; 
if A > 0 then A:= A /1.5;if B > 0 then B:= B /1.5; 
write('A =',A,' B=',B);end.