Viết CT nhập vào hai cạnh của hình chữ nhật và in ra diện tích hình chữ nhật

2 câu trả lời

uses crt;

var d, r : integer;

begin

clrscr;

write('Nhap chieu dai va chieu rong : ');

readln(d, r);

write('Dien tich = ', d * r);

readln

end.

uses crt;

var a,b,S : real;

begin

clrscr;

write('nhap chieu dai cua hinh chu nhat la: ');readln(a);

write('nhap chieu rong cua hinh chu nhat la: ');readln(b);

S:=a*b;

writeln('Dien tich hinh chu nhat la: ',S);

readln;

end.