programisprime;vara:integer;functionisprime(n:integer):integer;vari:integer;beginifn<2thenbeginisprime:=0;exit;end;ifn<4thenbeginisprime:=1;exitend;if((nmod2)=0)or((nmod3)=0)thenbeginisprime:=0;exitend;isprime:=1;i:=5;whilei<ndobeginif((nmodi)=0)thenbeginisprime:=0;exit;end;i:=i+2;end;end;beginwriteln(isprime(0));writeln(isprime(1));writeln(isprime(2));writeln(isprime(3));writeln(isprime(4));writeln(isprime(5));writeln(isprime(6));writeln(isprime(7));writeln(isprime(8));writeln(isprime(9));writeln(isprime(10));writeln(isprime(11));writeln(isprime(12));writeln(isprime(13));writeln(isprime(14));writeln(isprime(15));writeln(isprime(16));writeln(isprime(17));writeln(isprime(17*7));writeln(isprime(17*11));writeln(isprime(101));writeln(isprime(103));end.
