uses crt;

var n,i,S:integer;

begin

write('nhap n:');readln(n);

for i:=1 to n do if (i mod 2)=0 then writeln(i);

S:=n-1;

for i:=2 to S do if (n mod i)=0 then writeln('n khong phai la so nguyen to');

if (n mod 1)=0 and (n mod n)=0 then writeln('n la so nguyen to');

readln;

end.

program bai_giai;

uses crt;

var n,i,dem:longint; a:array[11..1000] of longint;

function NT(b:longint):boolean;

var j:longint;

begin

dem:=0;

for i:=1 to a do if(a mod 2=0)then inc(dem);

NT:=dem=2;

end;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do 

begin

write('a[',i,']=');readln(a[i]);

if(a[i] mod 2=0) then inc(dem);

end;

write('co ',dem,' so tu nhien chan trong mang');

if(NT(n)) then write('n la so nguyen to')else write('n khong la so nguyen to');

readln;

end.