Viết chương trình in ra màn hình 2 biến a và b thuộc kiểu số thực. Nếu a là số dương thì tính tổng a+b , ngược lại tính tích a*b

program btsydn;

uses crt;

  var a, b: real;

begin

          clrscr;

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

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

          if a>0 then write(‘Tong = ‘, a+b) else write(‘Tich = ‘, a*b);

          readln

end.