viết phương trình pascal giải bài toán sau tính diên tích và chu vi hình chữ nhật có độ dài các cạnh được nhập trên bàn phím. Cách nhập vào phải dương

Program chuvi_dt;
uses crt;
Var a,b,s,c: real;
Begin
Clrscr;
Write(‘Nhap chieu dai:’); readln(a);
Write('Nhap chieu rong:'); readln(b);

S:= a*b; 
c:=(a+b)*2;
Writeln(‘Dien tich hinh chu nhat la:’,s:6:2);

Writeln(‘Chu vi hinh chu nhat la:’,c:6:2);

readln;

end.

uses crt;

var a,b: integer;

      P,S: real;

begin

writeln('Nhap chieu dai:'); readln(a);

writeln('Nhap chieu rong:'); readln(b);

P:=(a+b)*2;

S:=a*b;

writeln('Chu vi la:',P);

writeln('Dien tich la:',S);

readln

end.