Найдите программу которая считывает текст из файла и выводит на экран только строки, содержашие двузначные числа. pascal.

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

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end. 

1 input a

2 input b

3 input c

20 if a> b then goto 60

30 if b> c then goto 110

40 max=с

50 goto 120

60 if a> c then goto 90

70 max=с

80 goto 120

90 max=a

100 goto 120

110 max=b

120 if a< b then goto 160

130 if b< c then goto 210

140 min=с

150 goto 220

160 if a< c then goto 190

170 min=с

180 goto 220

190 min=a

200 goto 220

210 min=b

220 print min*max