задача четырехзначные числа

Ответ от Ассоциация новостроек Краснодара[новичек]
Program begin_00;
Uses crt;
Var a,b,c,d, x: integer;
Begin
ClrScr;
Writeln('введите четырехзначное число');
Readln(x);
a:= x div 1000;
b:=x (div 100) mod 10 ;
c := (x mod 100) div 10;
d:=x mod 10;
writeln(a,' тысяч ', b, 'сотен', c, 'десятков',d,'единиц');
Readln;
end.