Основы программирования

var a: array [1..6] of shortint;
    k,a1,i,n: shortint;
 
Begin
     k:=0;
     randomize;
     write('vvedite 6 chisel');
     for i:=1 to 6 do begin
       readln (a[i]);
     end;
 
     for n:=1 to 6 do begin
       a1:=random (36)+1; writeln ('shar i ego nomer = ',a1);
       for i:=1 to 6 do begin
         if a[i]=a1 then k:=k+1;
       end;
     end;
 
     Writeln ('ugadali ',k,' chisel');
     ReadLn;
End.