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

Вот составил программку при условии, что вводиться 8-ми значное число, оканчивающиеся на 3. И выводиться его 3 число.Program znanija;var a,x:integer;Beginrepeat  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.