Verified answer

2.17)

var x: integer;

begin

readln(x);

write(x div 100);

end.

2.18)

var x: integer;

begin

readln(x);

write(x div 100);

end.

2.21)

var x: integer;

begin

writeln('Введите четырехзначное число');

readln(x);

writeln('число тысяч равно ',x div 1000);

writeln('число сотен равно ',(x div 100) mod 10);

writeln('число десятков равно ',(x mod 100) div 10);

write('число единиц равно ',x mod 10);

end.