viết trương trình nhập chiều dài, rộng sau đó in ra màn hình diện tích của hình chữ nhật

1 câu trả lời

program ctpt;

uses crt;

  var a, b, S: real;

begin

            clrscr;

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

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

         

            S:=a*b;

            writeln(‘Dien tich hinh chu nhat la: ‘, S:2:1);

  readln
end.