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;