Модифицируйте программу паскаля таким образом, чтобы она в ...

Вера

Модифицируйте программу паскаля таким образом, чтобы она в случае ввода одинаковых чисел выдавала сообщение: "Числа равны!"
 
uses crt;
var A,B:integer;
begin TextColor(Blue);
writeln('<<<Нахождение максимального из двух целых чисел >>>' :50); writeln;
write('Первое число= ? ');
readln(A);
write('второе число= ? ');
readln(B);
write('Максимальное из двух чисел ');
if A>B then writeln(A)
else writeln(B);
end.