Версия для печати темы

{ Эта функция проверяет, является ли число простым }
function isPrime(a: word): boolean;
var i: integer;
Begin
isPrime:=false;
if not odd(a) and (a<>2) then exit;
i:=3;
while i <= sqrt(a) do
  begin
    if a mod i = 0 then Exit;
    inc(i,2)
  end;
isPrime:=true
End;

var
 i, k: integer;
 a: array[1 .. 13] of integer;
begin
 readln(k);
 for i := 1 to k do
 begin
   write('a[', i, '] = '); readln(a[i])
 end;
 
 for i := 1 to k do
   if not isPrime(a[i]) then Write(a[i]:4);
end.