Задача на сравнение переменных в Pascal ABC

[Лиза_]

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

[Serge_Bliznykov]

Лиза, Вы издеваетесь?! Или не знаете, как сравнить значение двух переменных?!!

if A<>B then {не равны}
   if A>B then B:=A
   else A := B;
else {если равны} begin
  A:=0;
  B:=0;
end;