Nhập xuất tự tính
1/
p:=1;
for i :=1 to n do if i mod 2=0 then p:=p*i;
if n mod 2=1 then p:=p*n;
2/
Kt:=true; // kt : boolean
For i:=2 to round(sqrt(n)) do
    if n mod i =0 then 
        Begin
           Kt:=false;
           Break;
        End;
if kt := true then write(n,’ la so nt’) else ngược lại;