Дано трехзначное число. Определить, какая из его цифр больше: первая или последняя — Pascal(Паскаль)

var
n:integer;
begin
writeln('Vvedite chislo');
readln(n);
if (n div 100)>(n mod 10) then
   writeln('1 цифра больше последней')
else
   writeln('1 цифра меньше последней');
end.