Не уверен, что правильно, но всё же(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.