Program test;
uses crt;
type
   tabella = array[1..11,1..5] of integer;
var
   tab:tabella;
   k,s:string;
   f:integer;
 
procedure estrazione;
var
   a,b: integer;
   trovato:boolean;
   nEstratto: Integer;
   aNumeri: array[1..90] of integer;
begin
randomize;
for a := Low(aNumeri) to High(aNumeri) do
  aNumeri[a] := 0;
for a:=1 to 11 do
   for b:=1 to 5 do
   begin
      while true do
      begin
        nEstratto := random(90+1);
        if aNumeri[nEstratto] <> -1 then
        begin
           tab[a,b] := nEstratto;
           aNumeri[nEstratto] := -1;
           break;
        end;
     end;
  end;
end;
Procedure scrivi;
var
   a,b,num,col:integer;
    begin
     num:=15;
     col:=5;
          for a:=1 to 11 do
               begin
                gotoxy(num,col);
                for b:=1 to 5 do
                        begin
                         write (tab[a,b]:5);
                        end;
                col:=col+1;
               end;
 
 
    end;
begin
        estrazione;
        clrscr;
        scrivi;
        writeln(k);
end.