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

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