Is_prime

## //определение числа на простоту
function is_prime(n: integer): integer;
begin
  var cnt := 0;
  for var i := 1 to n do if (n mod i = 0) then cnt += 1;
  if (cnt = 2) then result := 1 else result := 0;
  if (Result = 1) then Print(True)
      else Print(False)
end;
//
var n := ReadInteger;
is_prime(n);