Даны два целых двузначных числа A и B. Если их значения не равны, то присвоить переменным значения "33". Вывести новые значения переменных.

Помогите решить, пожалуйста!

program abc;var A,B:integer;beginreadln(A);readln(B);if A<>B then beginA:=33;B:=33;end;writeln(A);writeln(B);end.