Паскаль! Введите четырёхзначное число. Определите верно ли, что число тысяч в этом числе меньше, чем число десятков.

Не уверен, что правильно, но всё же

(t - цифра обозначающая разряд тысяч, d -цифра обозначающая разряд десятков)

var a,t,d:integer;      

begin

writeln('Введите четырёхзначное число');

read(a);

t:=a div 1000;

d:=(a mod 100) div 10;

if t>d then writeln('Число тысяч больше числа десятков')

else writeln('Число тысяч меньше числа десятков');

end.