Bài 4. Viết chương trình nhập vào hai số nguyên a và b. In ra màn hình giá trị lớn nhất.

program ctpt;

uses crt;

  var a, b: integer;

begin

           clrscr;

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

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

           if a>b then write(a, ‘ la so lon nhat’) else

               if a<b then write(b, ‘ la so lon nhat’) else

                           write(a:4, b);

           readln

end.