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

Question

Модифицируйте программу паскаля таким образом, чтобы она в случае ввода одинаковых чисел выдавала сообщение: "Числа равны!"

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.

Answer 1

uses crt;

var A,B:integer;

begin TextColor(Blue);

writeln('<<<Нахождение максимального из двух целых чисел >>>' :50); writeln;

write('Первое число= ? ');

readln(A);

write('второе число= ? ');

readln(B);

write('Максимальное из двух чисел ');

if a <> b then

begin

  if A>B then writeln(A)

  else writeln(B);

end

else writeln ('числа равны');

end.

Answer 2

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

if B>A then writeln(B) else writeln('Числа равны!'); readln;

end.