Pascal :

var
n:integer;
begin
repeat
readln(n);
until (n<100) and (n>9);
write(n);
end.