Dze je subor www.TrSek.com/beginner/danciwo/prvocislo4.pas{ PRVOCISLO4.PAS Copyright (c) Danciwo }
{ Napiste funkciu ktora pre danne cislo na vstupe vrati hodnotu TRUE}
{ ak dane cislo na vstupe je prvocilo. }
{ }
{ Author: Danciwo }
{ Date : 15.02.2008 http://www.trsek.com }
program prvocislo4;
uses crt;
var cislo,c: integer;
x:boolean;
function prvocislo(var a: integer): boolean;
var i,d:integer;
begin
prvocislo:=true;
for i:=2 to trunc(sqrt(a)) do
if a mod i=0 then prvocislo:=false;
end;
begin
writeln('Program urci ci je dane cislo prvocislo.');
write('Zadajte prosim cele cislo: ');
readln(c);
x:=prvocislo(c);
writeln(x);
readln;
end.