Bài 7:
uses crt;
var n:longint;
begin
clrscr;
write('n=');readln(n);
if n mod 2=0 then writeln(n,' la so chan') else writeln(n,' la so le');
readln
end.
Bài 8:
uses crt;
var n:longint;
begin
clrscr;
write('n=');readln(n);
if n>0 then writeln(n,' la so duong') else
if n<0 then writeln(n,' la so am') else
writeln(n,' la so nguyen 0');
readln
end.
Bài 5:
uses crt;
var a,b,c:longint;
begin
clrscr;
write('a,b,c=');readln(a,b,c);
if(a+b>c)and(a+c>b)and(b+c>a) then writeln('Yes') else writeln('No');
readln
end.
