a)
Procedure kt( Var i: longint);
Var res: boolean;
Begin
If i mod 2 = 0 then write(i,' la so chan')
else write(i,' la so le');
End;
b)
Function bp(x: longint): longint;
Begin
bp:=x*x;
End;
c)
Procedure kt( var n: longint);
Begin
If n>0 then write(n,' la so duong');
If n=0 then write(n,' khong phai la so duong cung khong phai la so am');
If n<0 then write(n,' la so am');
End;