Паскаль! введите четырёхзначное число. определите верно ли, что число тысяч в этом числе меньше, чем число десятков.
Не уверен, что правильно, но всё же(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.