Phần khai báo tự làm nhé giải cho vui thôi . Sai sót hơi nhiều  !!

A) 
If N mod 2 =0 then write (' day la so chan' ) else write  ( ' so le la day ');
B)
If b >= 0 then Write ( ' b a so khong am ') else ( write  (' so am la day ');
C)  
If a+b>c or a+c>b or b+c> a then write  (' a b c la 3 canh tam giac ' ) else write  ('a b c khong phai la 3 canh tam giac ');
D)
Write ( 'nhap x y z');
Readln (x,y,z);
Max :=x ;
If y>x then max:=y;
If z>y then max:=z ;
Write (' so lon nhat la ' , max);