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

Вывести новые значения переменных A и B.

Program If11;
Var
A,B,Max:Real;
Begin
WriteLn('Введите числa A и B: ');
ReadLn(A,B);
If A > B Then
Max:=A
Else
Max:=B;
 
If A <> B Then
Begin
A:=Max;
B:=Max;
End
Else
Begin
A:=0;
B:=0;
End;
WriteLn('A = ',A,' B = ',B); 
End.

автор: Sklyarov Sergej a.k.a. S9