program Behi ;
uses WinCrt;
type
tab = array[1..100] of integer ;
var
t :tab;
a,n,s : integer ;
k : char;


procedure ebda(var n:Integer; var k:char );
    Begin
        WriteLn('9adeh men  case t7ab fel tableau  mte3ek (max 100 ) ');
        readln(n);
        Writeln('t7ab t3aby el tableau MANUALLY wala RANDOM ? tap m/M for MANUALLY or r/R for RANDOM  ');
        readln(k);
    End;

Procedure FM(var t:tab; n:integer) ;
   var
        i:integer;
             Begin
                 for i:= 1 to n do
                     Begin;
                      Write('7ot el contenu mta3 el case n°',i,': ');
                      readln(t[i]);
                     end;
              end;


procedure FR(n:integer; var t:tab) ;
    var
        i:integer;
            Begin
             for i:= 1 to n do
                t[i] := Random(999);
            End;

Procedure  fail(s: integer; var t:tab) ;
    var
     i:integer;
    Begin
        for i := 1 to 50 do
                WriteLn('3awed mellowel rak 8alet');

    end;

procedure tab1(n : integer ; var t:tab) ;
    Begin
        for a := 1 to n do
    write(t[a],'  ');
    writeln;
    end;


Begin
    ebda(n,k);
    if Upcase(k) = 'M' then
        Begin
            FM(n,t);
            FR(n,t);
            fail(s,t);
            tab1(n,t);
                end;
end.