Дано трьохзначне число,визначити яка з його чисел більше перше чи останнє

Uses crt;
var a:integer;
begin
readln(a);
if (a mod 10)>(a div 100) then writeln('3>1');
if (a mod 10)<(a div 100) then writeln('1>3');
end.