VAR
   a, m, i: integer;

BEGIN
   read(a);
   for i:=1 to a do
          if a mod i = 0 then m:=m+1;
   if (m = 2) and (a lt;gt; 2) then write(число , a,  простое)
                    else write(число , a,  составное);
END.

вроде правильно, но проверь в паскале, а то у меня програмки нет на компе