Ответ:
При условии, что введенные числа - трехзначные:
var a,b: integer;
begin
readln(a,b);
if (a div 100 > b div 100) then
writeln('старшая цифра в записи первого числа больше.')
else if (a div 100 = b div 100) then
writeln('старшие цифры в записи двух чисел равны.')
else
writeln('старшая цифра в записи второго числа больше.');
end.
Для любых целых чисел:
var a,b: integer;
begin
readln(a,b);
while (a>10) do a:= a div 10;
while (b>10) do b:= b div 10;
if (a > b) then
writeln('старшая цифра в записи первого числа больше.')
else if (a = b) then
writeln('старшие цифры в записи двух чисел равны.')
else
writeln('старшая цифра в записи второго числа больше.');
end.