Viết ct tính S ,P của HCN có chiều dài và chiều rộng nhập từ bàn phím

Program dientichchuvi;

Uses crt;

Var s,p,a,b : real;

Begin

Clrscr;

Write(' nhap chieu dai a',a);

Readln(a);

Write('nhap chieu rong b',b);

Readln(b);

P: = (a+b)*2 ;

S:=a*b;

Writeln(' dien tich cua hinh chu nhat do la',S);

Writeln('chu vi cua hinh chu nhat do la',P);

Readln

End.

program SPHCN;

var a,b,S,P: real; {a, b lan luot la chieu dai, chieu rong}

begin

writeln('Chieu dai hinh chu nhat: '); readln(a);

writeln('Chieu rong hinh chu nhat: '); readln(b);

S:=a*b; P:=(a+b)*2;

writeln('S la: ',S,'P la: ',P);

readln

end.