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

• var n, i, f, z: integer;
• begin
• readln\(n\);
  f := 0;
  i := 2;
  z := round(sqrt\(n\));
• while \(i \\lt = 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.