Даны действительные числа A и B. Если числа не равны, то большее увеличить в 5 раз, а меньшее уменьшить на 5. В противном случаи, если они положительны, то оставить их без изменения, если отрицательные, то возвести в квадрат.
Нужно написать блок-схему и программу в Pascal, оператор if.

//Блок-схема в вложении//Pascal ABC.NET 3.1 сборка 1219Var a,b:real;beginread(a,b);if a<>b then if a>b then   begin    a:=a*5;    b:=b-5;   end   else   begin    b:=b*5;    a:=a-5;   end elseif a<0 then begin  a:=a*a;  b:=b*b; end;writeln(a);writeln(b);end.Пример ввода:34Пример вывода:-220