Даны действительные числа A и B. Если числа не равны, то большее увеличить в 5 раз, а...

Question

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

Answer 1

//Блок-схема в вложении
//Pascal ABC.NET 3.1 сборка 1219

Var
 a,b:real;
begin
read(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
 else
if a<0 then<br> begin
  a:=a*a;
  b:=b*b;
 end;
writeln(a);
writeln(b);
end.

Пример ввода:
3
4
Пример вывода:
-2
20

---