program zad;
uses crt;
var c,n,h,k,l,g,f:integer;
Begin
writeln('Введите 4-ех значное число');
readln(n);
  c:=n div 1000;
writeln('Число тысяч равно',c);
readln;
  g:=n-(c*1000);
   h:= g div 100;
writeln('Число сотен равно',h);
readln;
  f:=g-(h*100);
   k:= f div 10;
writeln('Число десятков равно',k);
readln;
  l:=f-(k*10);
writeln('Число единиц равно',l);readln;
end.