Задание

Восстановите программу проверки натурального числа на простоту.

var n, i, f, z: integer;

begin

readln(n);

f := 0;

i := 2;

z := round(sqrt(n));

while (i <= z) and (f = 0) do begin

if n mod i = 0 then f := 1;

i := i + 1;

end;

if f = 1 then

writeln('Число составное')

else

writeln('Число простое');

end.