Bạn viết lại chương trình theo mình nhé!.

program Vi_du;

uses crt;

 var a, b, c, s: integer;

begin

 write('Chieu dai a = '); readln(a);

 write('Chieu dai b = '); readln(b);

 s:=a*b;

 c:=(a+b)*2;

 write('Dien tich hinh chu nhat la: ', s);

 write('Chu vi hinh chu nhat la: ', c);

 readln

end.

Propram Vi_du;

Uses crt;

Var a , b : integer;

      c , s : real;

Begin

    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 );

    Writeln ( 'chu vi hinh chu nhat la:',C );

    Readln

End.