a)program tam_giac;
uses crt;
vả a, b, c: real;
begin
clrscr;
write('nhap a, b va c:');readln(a,b,c);
if (a+b>c) and a+c>b and b+c>a then write('a, b, c la 3 canh cua tam giac')
else writeln('a, b, c khong phai la canh cua tam giac');
readln;
end.
b) program chan_le;
uses crt;
var a: real;
begin
clrscr;
write('nhap so a:');readln(a);
if a mod 2=0 then writeln(a' chan')
else writeln('a le');
readln;
end.
c)
program so_lon_nhat;
uses crt;
var a, b: integer;
begin
clrscr;
write('nhap a:');readln(a);
write('nhap b:');readln(b);
if (a>b) then writeln('a lon nhat')
else writeln('b lon nhat');
readln;
end.
#CHUCBANDIEMCAONHA