program kalvisgejs;
uses crt;
var a,tri,sk,n:integer;
begin
textmode(co80);
textcolor(15);
clrscr;
a:=10;
tri:=0;
for n:=1 to a do
begin
write('ievadi ',n ,'-to skaitli no ',a );
readln (sk);
if (sk>99) and (sk<1000) then tri:=tri+1;
end;
writeln('triisciparu skaitlji ir', tri);
readkey;
end.

programma kas liek ievadīt 10 skaitļus un tad paziņo cik no viņiem ir trīsciparu sk ;)