some_task

uses crt;

type
    Tarr = array [1..30] of word;

procedure getCert(var n : byte; var cert : Tarr);
var i : byte;
begin
    write('Amount of certificate: ');
    readln(n);
    writeln('Insert the numbers of certificates (max 5)...');
    writeln;

    for i:=1 to n do
        readln(cert[i]);

end;

function notRepeat(n : word) : boolean; //проверяем число на неповторяемость в нем цифр
var k : integer;
    c : byte;
    m : set of byte;
    f : boolean;
begin
    k:=n;
    f:=true;
    m:=[];

    while (k > 0) and f do begin
        c:=k mod 10;

        if c in m then f:=false
        else begin
            m:=m + [c];
            k:=k div 10
        end;
    end;

notRepeat:=f
end;

procedure whoGetGift(n : byte; cert : Tarr);
var i, count : byte;
begin
    count:=0;
    for i:=1 to n do begin
        if (notRepeat(cert[i])) then inc(count);
    end;

writeln('Peoples get gift: ', count);
end;

function isSimple(t : word) : boolean;  //проверяем является ли число простым
var i : word;
begin
    isSimple:=true;
    for i:=2 to t div 2 do
        if t mod i = 0 then isSimple:=false;
end;

procedure whoGetMoney(n : byte; cert : Tarr);
var i, count : byte;
begin
    count:=0;
    for i:=1 to n do
        if(isSimple(cert[i])) then inc(count);

writeln('Peoples get money: ', count);
end;

{ main code }
var n : byte;
    arr : Tarr;

begin
    getCert(n, arr);
    whoGetGift(n, arr);
    whoGetMoney(n, arr);
end.