Все нужно сделать на Pascal'e. Пользователь вводит с клавиатуры целое положительное пятизначное число. Программа определяет цифру десятков, цифру сотен и цифру тысяч во введенном числе. Если число не положительное или не пятизначное, то программа выдает сообщение об ошибке.

program zz1;

var n, n1, n2, n3, k, m:integer; / /задаем переменные

begin

write ('введите число '); / /вводим заданное число

read (n);

m:=n; / /запоминаем его

while n>0 do / /считаем количество цифр

begin

n:=n div 10;

k:=k+1;

end;

if (k=5) and (m>0) / /проверяем, если количество цифр не равно пяти и число не положительное, то выводим сообщение об ошибке, иначе выводим ответ

then begin

n1: = (m mod 100) div 10; writeln ('число десятков = ', n1);

n2: = (m mod 1000) div 100; writeln ('число сотен = ', n2);

n3: = (m mod 10000) div 1000; writeln ('число тысяч = ', n3);

end

else write ('Error');

end.