Програма, яка визначає чи є число простим:
program proste_chislo;
var n,k,i: integer;
begin
writeln ('vvedit chislo');
readln (n);
k:=0;
for i:=2 to n div 2 do
begin
if n mod i =0 then
k:=k+1;
end;
if (k>0) then
writeln ('neproste')
else
writeln ('proste');
readln
end.