Program Primo1;
 Type naturale=0..MaxLongInt;
  var n,k:naturale;primo:boolean;
 begin writeln('Test di primalita''.');
  repeat
   repeat write('n (>3 e dispari, <=3 per finire) = ');readln(n)
   until n mod 2 >0;
   if n>3 then
   begin
    k:=1;primo:=true;
    while (k*k<=n) and primo do
    begin k:=k+2;primo:=(n mod k >0)
    end;
    if primo then writeln(n,'  e'' primo') else
    writeln(n,' e'' composto')
   end
  until n<=3
 end.