Запиши программу на языке Паскаль.
Определить, является ли число, введенное с клавиатуры простым.

var  a: int64;  ans: boolean;function is_prime(a: int64): boolean;var  i: int64;begin  is_prime := true;   i := 2;  while (i * i <= a) do   if (a mod i = 0) then begin    is_prime := false;    exit;  end else    i := i + 1;end;begin  readln(a);  ans := is_prime(a);  if ans then    writeln('prime')  else    writeln('composite');end.