Viết phương trình pascal : Tính chu vi và diện tích hình chữ nhật khi biết chiều dài và chiều rộng của nó ( cùng đơn vị đo ) Cứu mình đi

uses crt;
var c,s,d,r:real;
begin
clrscr;
write('Nhap chieu dai = ');readln(d);
write('Nhap chieu rong = ');readln(r);
c := 2*(d+r);
s := d*r;
writeln('Chu vi hinh chu nhat la ',c:0:2);
writeln('Dien tich hinh chu nhat la ',s:0:2);
readln
end.

Uses Crt;

Var a, b : Longint;

Procedure Cal;

Begin

   Writeln( 'S = ', a * b );

   Write( 'P = ', ( a+ b ) * 2 );

End;

Procedure IOPUT;

Begin

   Assign( input, 'input.inp' ); Reset( input );

   Assign( output, 'output.out' ); Rewrite( output );

   Read(a , b);

   Close( input );

End;

Begin

   IOPUT;

   Cal;

   Close( output );

End.