Даны два целых двузначных числа a и b. если их значения не равны, то присвоить переменным значения "33". вывести новые значения переменных. решить, !

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