Viết chương trình nhập vào từ bàn phím hai số thực a và b . Tính chu vi và diện tích hình chữ nhật rồi đưa kết quả ra màn hình

Program BT;
Uses crt;
Var a, b, p ,s: real;
Begin
     Clrscr;
     Write(‘Nhap a = ‘); readln(a);
     Write(‘Nhap b = ‘); readln(b);
     s:=a*b;
     p:=(a+b)*2;
     Writeln(‘Chu vi la: ‘,p:0:2);
     Writeln(‘Dien tich la: ‘,s:0:2);
Readln
End.