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.

Bài 1 :

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap hai so bat ki : ');readln(a, b);

if a > b then writeln(a,' la so lon hon');

if a < b then writeln(b,' la so lon hon');

if a = b then writeln('hai so bang nhau');

readln

end.

Bài 2 :

uses crt;

var a, b, c : integer;

begin

clrscr;

write('nhap ba so bat ki : ');readln(a, b, c);

if (a + b > c) and (b + c > a) and (a + c > b) then

writeln('ba so la ba canh cua tam giac')

else writeln('ba so khong la ba canh cua tam giac');

readln

end.