var n:integer;
begin
write('Введите 4-х значное число: ');
readln(n);
if n div 1000 = n mod 10 then write('Первая цифра равна последней: ',n div 1000,'=',n mod 10)
else if n div 1000 > n mod 10 then write('Первая цифра больше последней: ',n div 1000,'>',n mod 10)
else write('Первая цифра меньше последней: ',n div 1000,'<',n mod 10)</p>
end.