function prime=prastevilo(a);

prime=1;
if a==1
    prime=0;
end;

for i=2:ceil(a/2)
    if (a/i)-floor(a/i)==0
        prime=0;
    end;
end;

