1
2 uses crt;
3 var
4 f:text;
5 s:string;
6 i,code:integer;
7 begin
8 clrscr;
9 assign(f,'filename.txt');
10 reset(f);
11 whilenoteof(f)do
12 begin
13 readln(f,s);
14 val(s,i,code);
15 if(length(s)=2)and(code=0)then
16 writeln(s);
17 end;
18 readln;
19 end.
20
