Вывести новые значения переменных 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.