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

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