1. Viết chương trình nhập vào 2 cạnh của một hình chữ nhật. Tính và in ra màn hình diện tích và chu vi của HCN

Program bai_1;

Uses crt;

Var a,b,dt,cv: integer;

Begin

Clrscr;

Write('nhap a: '); readln(a);

Write('nhap b: '); readln(b);

Dt:= a*b;

Cv:= (a+b)*2;

Writeln('dien tich: ',dt);

Writeln('chu vi: ',cv);

Readln;

End.

uses crt;

var a, b, s, cv: integer;

begin

clrscr;

write('nhap chieu dai : ');readln(a);

write('nhap chieu rong : ');readln(b);

s := a * b;

cv := (a + b) * 2;

writeln('dien tich hinh chu nhat : ', s);

writeln('chu vi hinh chu nhat : ', cv);

readln

end.