1, Viết chương trình nhập 2 số bất kì từ bàn phím in ra màn hình số nào lớn hơn 2,Viết chương trình nhập ba số bất kì từ bàn phím. Kiểm tra xem ba số đó có phải là 3 canhj của tam giác ko

Câu 1:

Uses crt;
Var 
    a,b: integer;
Begin
    clrscr;
    write('Nhap so thu nhat: '); readln(a);
    write('Nhap so thu hai: '); readln(b);
    if a>b then writeln('So lon hon la: ',a)
    else if b>a then writeln('So lon hon la: ',b)
    else writeln('So lon hon la ca ',a,' va ',b);
    readln;
End.

Câu 2:

Uses crt;
Var 
    a,b,c: integer;
Begin
    clrscr;
    write('Nhap 3 so: '); readln(a,b,c);
    if (a+b>c) and (b+c>a) and (a+c>b)
    then writeln('Ket qua do la 3 canh cua tam giac')
    else writeln('Ket qua do khong phai 3 canh cua tam giac');
End.