program Liczba_pierwsza;
uses crt;
var liczba,n:longint;
begin
   clrScr;
   liczba:=2147483647;
   for n:=2 to round(sqrt(liczba)) do
      if liczba mod n=0 then
         begin
           writeLn(liczba,'-liczba zlozona'); readLn; exit;
         end;
   textColor(lightRed);
   writeLn(liczba,'-liczba pierwsza');
   readLn;
end.