Program Hinh_chu_nhat;

Uses Crt;

Var x, y, S, C: Real;

Begin

Clrscr;

Writeln ('Nhap vao chieu dai=');

Readln (x);

Writeln ('Nhap vao chieu rong=');

Readln (y);

C:=(x+y)*2;

S:=x*y;

Writeln ('Chu vi hinh chu nhat=', C:0:1);

Writeln ('Dien tich hinh chu nhat=', S:0:1);

Readln;

End. 

Giải:

Program bai 1;

Uses Crt;

Var chieu dai, chieu rong: interger;

      dien tich, chu vi: real;

 Begin

Write ('nhap chieu dai') ; read (chieu dai) ;

Write ('nhap chieu rong') ; read (chieu rong) ;

Dien tich:= dai * rong ;

Chu vi:= (dai + rong) * 2 ;

Write ('Dien tich, chu vi hinh chu nhat là:' , dien tich, chu vi) ; 

End.