Uses crt;
Const MN = 25;
ChuSoLe: array[1..5] of integer = (1,3,5,7,9);
Var s:array[1..MN] of integer;
n:integer;
{------------------------}
Function tim:integer;
Var a,c,d:integer;
Begin
    d:=0;
    for a:=1 to 5 do
        for c:=1 to 5 do begin
            inc(d);
s[d]:=105*chusole[a] + 6*chusole[c];
end;
tim:=d
end;
{--------------------------}
Procedure xem(n :integer);
Var i:integer;
Begin
For i:=1 to n do write(s[i]:4);
End;
{--------------------------}
Procedure test;
Var n:integer;
Begin
    Clrscr;
n:=tim;
Writeln;
Xem(n);
Writeln;
Write(‘co tong cong ‘,n,’ so’);
Readln
End;
{-------------------------------}
Begin
Test
End.