Пожалуйста сделайте программу в Паскаль. "запросить с клавиатуры целое 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.