function isPrime(n: integer): boolean;
begin
  if n > 1 then result := True
  else result := False;
  
  for var i := 2 to Trunc(Sqrt(n)) do
    if n mod i = 0 then begin result := false; exit end
end;

const n = 5;

var
  a: array[1..n] of integer;
  b: array[1..10000] of integer;
  i, j: integer;

begin
  //Randomize;
  for i := 1 to n do 
  begin a[i] := Random(100); Write(a[i]:4); end;
  
  for i := 1 to n do 
    if isPrime(a[i]) then begin j += 1; b[j] := a[i] end;
  
  Writeln(newline,'  простые числа:');
  for i := 1 to j do Write(b[i]:4)
end.