Простое или составное

var
  k, i, t: integer;
  stdin: array[1..10] of int64;
 
begin
  for t := 1 to 10 do
  begin
    readln(stdin[t]);
    end;
  for t := 1 to 10 do
  begin
    k := 0;
    for i := 1 to stdin[t] do
    begin
      if stdin[t] mod i = 0 then k:=k+1;
      end;
      if (k = 2) 
        then writeln(stdin[t], ' is a prime number.')
      else writeln(stdin[t], ' is a composite number.')
    
  end;
  
end.

  for t := 1 to 10 do
    begin
      if stdin[t] > 1 
        then begin
          k := 0;
          for i := 2 to trunc(sqrt(stdin[t])) do if stdin[t] mod i = 0 
            then begin 
              k := 1;
              break
            end
        end
        else k := 1;
      if (k = 0) 
        then writeln(stdin[t], ' is a prime number.')
        else writeln(stdin[t], ' is a composite number.')
    end;

  for t := 1 to 10 do
    begin
      k := stdin[t]>1;
      if k then
        for i := 2 to trunc(sqrt(stdin[t])) do if stdin[t] mod i = 0 
          then begin 
            k := false;
            break
          end;
    if k
      then writeln(stdin[t], ' is a prime number.')
      else writeln(stdin[t], ' is a composite number.')
  end;

  for t := 1 to 10 do
    begin
      k := stdin[t]>1;
      if k then
        for i := 2 to trunc(sqrt(stdin[t])) do
          begin 
            k := stdin[t] mod i <> 0 
            if not(k) then break
          end;
      if k
        then writeln(stdin[t], ' is a prime number.')
        else writeln(stdin[t], ' is a composite number.')
    end;