Последние ! даны действительные числа a и b . если числа не равны, то большее увеличить в пять раз, а меньшее уменьшить на пять, в противном случае, если они положительные, то оставить их без изменения, если отрицательные , то возвести в квадрат

BEGIN
writeln('Enter A number');
realdln(A);
writeln('Enter B number');
readln(B);
if (A<>B) then
begin
A:=A*5;
B:=B-5;
end else
begin
if ((A<0) and (B<0))
begin
A:=A*A;
B:=B*B
end;
end;
writeln(A, B);
END.