Kód: Vybrať všetko
var n, i, b: Integer;
begin
WriteLn('PROGRAM NA ZISTOVANIE PRVOCISEL');
WriteLn('');
Write('Zadaj cele cislo vacsie ako jedna: ');
ReadLn(n);
WriteLn;
b :=0;
if n<2 then WriteLn('Zle zadane cislo.')
else
while n>2 do
begin
for i := n downto 2 do
if n mod i =0 then b := i;
if b=n then Write(n, ' ');
n:=n-1;
end;
ReadLn;
end. Kód: Vybrať všetko
for i:=2 to n doKód: Vybrať všetko
begin
for i := 2 to n do
if n mod i =0 then b := i;
if b=n then Write(n, ' ');
end;
Kód: Vybrať všetko
var cis, del, poc_del, x: integer;
begin
Write('Napis cele cislo vacsie ako 2: ');
ReadLn(x);
WriteLn;
if x<2 then WriteLn('Zle zadane cislo.')
else
begin
WriteLn('Prvocisla v tomto intervale: ');
for cis:=2 to x do
begin
poc_del:=0;
for del:=2 to cis div 2 do
if cis mod del =0 then inc(poc_del);
if poc_del = 0 then write (cis,' ')
end;
end;
ReadLn;
end. 
var cis, del, poc_del, x, pocet_prvocisel: integer;
begin
pocet_prvocisel := 0;
if poc_del = 0 then
begin
write (cis,' ');
inc(pocet_prvocisel);
end;
snad som to napisal, bez syntaktickych chyb...Writeln('pocet prvocisel na danom intervale: ',pocet_prvocisel);
ReadLn;
end.
