1895 год
..............................
Program pyati;
var a:integer;
begin
Writeln('Введите число');
Readln(a);
a:=a div 100;
a:=a mod 100;
a:=a mod 10;
Writeln(a)
end.
В Pascal используй модуль GraphABC. Можешь почитать про его возможности в интернете.
read(n);
if (n>99) and (n<1000) then writeln('Yes');