program Project1;
 
{$APPTYPE CONSOLE}
 
VAR mas : array [1..50] of Integer;
    i : Byte;
    Flag : Boolean;
 
BEGIN
Writeln ('Programma 4');
Randomize;
Writeln ('Nomera elementov ravnix 5:');
  FOR i := 1 To 50 Do
   BEGIN
     Mas[i] := Random(10);
     IF Mas[i] = 5 Then
      BEGIN
       Flag := True;
       Write (i,' ');
      END;
   END;
  IF Flag = False Then Writeln ('Net takix elementov');
Readln;
END.