prvocisla

program prvocisla;
uses crt, dos;




begin
for i:= 2 to trunc(qwrt(cislo)) do
if (cislo mod i) = 0 then
        begin
        rozhodnutie:='Zadane cislo '+ scislo+' NIE JE prvocislom.');
        break;
        end;
if cislo:= then rozhodnutie:='Zadane cislo'+scislo+' JE prvocislom');



repeat until keypressed;
end.