Циклы. Задача 1.4

var
  i, k, n: integer;
  p: real;

begin
  read(p);
  k := 0;
  n := round(sqrt(p));
  if n * n = p then
    for i := 2 to n div 2 do
      if n mod i = 0 then
      begin
        k := 1;
        break;
      end;

  if (n * n <> p) or (k = 1) then
    write('No')
  else
    write('Yes');
end.