Var a,b,c:integer;
begin;
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
If a=b then
writeln('Оба числа равны ',a)
Else
if a>b then
writeln('Число' ,a,' больше чем ', b)
Else
if b>a then
writeln('Число' ,b,' больше чем ', a);
end.