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

var A,B:real; beginwriteln('Введите числа А и В');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.