Дано трехзначное число. Определить какая из его цифр больше, первая или вторая С ПАСКАЛЕМ

Program Pr1;

uses crt;

var a,b,c:integer;

Begin

clrscr;

readln(a);

c:=a mod 10;

a:=a div 10;

b:=a mod 10;

a:=a div 10;

if a>b then writeln('Первая цифра >')

else writeln('Вторая цифра больше');

end.

Объяснение: