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

Question

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

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

Answer 1

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.