viết chương trình ví dụ 5 trang 43 tin học 8 bài 5

program ctpt;

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.