c1 . Dùng câu lệnh điều kiện thiếu

program az;

uses Crt;

var a,b : real;

begin

clrscr;

Write('Nhap 2 so a va b'); readln(a,b);

If (a > b) then Write('a lon hon b');

If (a < b) then Write('a nho hon b');

If (a = b) then Write('a bang b');

readln

end.

c2 : Dung cau lenh dieu kien du

program az;

uses Crt;

var a,b : real;

begin

clrscr;

Write('Nhap 2 so a va b'); readln(a,b);

If (a > b) then Wrtie('a lon hon b') else If (a < b) then Write('a nho hon b') else Write('a bang b');

readln

end.

c1:

program ctct;

uses crt;

    var a, b: real;

begin

           clrscr;

           write('Nhap a = '); readln(a);

           write('Nhap b = '); readln(b);

           if a>b then write(a, ' lon hon ', b);

           if a<b then write(a, ' nho hon ', b);

           if a=b then write(a, ' bang ', b);

           readln

end.

c2:

program ctct;

uses crt;

    var a, b: real;

begin

           clrscr;

           write('Nhap a = '); readln(a);

           write('Nhap b = '); readln(b);

           if a>b then write(a, ' lon hon ', b) else

                     if a<b then write(a, ' nho hon ', b) else

                                 write(a, ' bang ', b);

           readln

end.