Укажите имя файла удовлетворяющее маске: ? ba*r.? xt.​

program mdd; uses crt; var i: longint; beginclrscr; for i: = 10 to 99 dobeginif i mod 13 = 0 then writeln(i); end; readkey; end.

                                                                          нет

var i,s : longint; begin  s: =0;   for i: =100 to 999 do s: =s+i;   writeln(s); end.

(делаю масив 10на10)  

program matrix;

var a: array [1..10,1..10] of integer;

i,q,b,f: integer;

begin

b: =0; f: =0; q: =1;  

for i: =1 to 10 do begin a[i,q]: =1; end;

i: =1;  

for q: =1 to 10 do begin a[i,q]: =1; end;  

for i: =2 to 10 do

begin

for q: =2 to 10 do

begin 

b: =q-1;

f: =i-1;  

a[i,q]: =a[i,b]+a[f,q];

end; end;

readln

end.