Сделайте программу в паскаль. "запросить с клавиатуры целое 8 число оканчивающееся тройкой и напечатать 3 цифру если вводится не то число ,то сообщить об этом и повторить ввод".

Вот составил программку при условии, что вводиться 8-ми значное число, оканчивающиеся на 3. И выводиться его 3 число.

Program znanija;
var a,x:integer;
Begin
repeat  
Writeln('Введите x'); 
readln(x); 
If x mod 10 <> 3 then writeln('Повторите ввод')
 until x mod 10 = 3;
a:=x div 100000;
a:= a mod 10;
Writeln(a);
readln;
End.