Pascal

var n,a,b:Integer;
begin 
writeln(Введите число); 
readln(n); 
a:=n div 10; 
b:= n mod 10; 
if (a gt; b) then writeln(Число ,a, больше)     
else  if (b gt; a) then writeln(Число ,b, больше)     
else writeln(Числа равны);end.