вот программа:

язык программирования: паскаль

Ответы:

Var a,b,c:integer,

 begin,



writeln(Введите первое число),



readln(a),



writeln(Введите второе число),



readln(b),



If a=b then



writeln(Оба числа равны ,a)



Else

if a&gt,b then



writeln(Число ,a,  больше чем , b)



Else

if b&gt,a then



writeln(Число ,b,  больше чем , a),



end.