Можете ли вы помочь, пожалуйста? Поставил тридцать баллов.

Напишите на языке "Паскаль" программу, которая позволит решить следующую задачу - Дано четырёхзначное число, найти в нём число тысяч, десятков и единиц.

Премного благодарен вам.

3213123123123213123213123213

var  v: integer;  qth, qtn, qltn: integer;begin   writeln('Введите четырёхзначное число');   readln(v);   qth:=v div 1000;   v:=v-qth*1000;   qtn:=v div 100; v:=v-qtn*100;   qtn:=v div 10;     qltn:=v-qtn*10;   writeln('Число тысяч ',qth,'; Число десятков ',qtn, '; Число единиц ',qltn);   readln;end.{---Пример-----}Четырёхзначное число 5342Число тысяч 5Число десятков 4Число единиц 2