Viết chương trình nhập vào cạnh của hình chữ nhật.In ra chu vi,diện tích của hình chữ nhật đó Ở trong chương trình Free Pascal

program bai_giai;
uses crt;
var a,b:longint;
begin
 clrscr;
  write('nhap chieu dai hinh chu nhat:');readln(a);
  write('nhap chieu rong hinh chu nhat:');readln(b);
  writeln('chu vi:=',(a+b)*2);
  write('dien tich:=',a*b);
 readln;
end.

Uses crt;

Var d, r, c, s : real;

Begin

Write ( 'Ban hay nhap chieu dai cua hinh chu nhat' ); Readln( d );

Write ( 'Ban hay nhap chieu rong cua hinh chu nhat' ); Readln( r );

c := 2*( d + r );

s := d*r

Writeln ( 'Chu vi hinh chu nhat la R = ', c );

Readln;

Writeln ( 'Dien tich hinh chu nhat la S = ', s );

Readln;

End.

CHÚC HỌC TỐT