Viết chương trình nhập vào độ dài 2 cạnh hình chữ nhật. Tính và in ra màn hình diện tích, chu vi, độ dài đường chéo của hình chữ nhật đó

Viết chương trình nhập vào độ dài 2 cạnh hình chữ nhật. Tính và in ra màn hình diện tích, chu vi, độ dài đường chéo của hình chữ nhật đó=>

program ct;

uses crt;

var a,b:real;

begin

clrscr;

write('nhap a,b: ');readln(a,b);

writeln('cv: ',(a+b)*2);

writeln('s: ',a*b);

writeln(' cheo: ',sqrt(sqr(a)+sqr(b));

readln;

end.

_______________

$#ATATATATAT$

program ct;

uses crt;

var a,b:real;

begin

clrscr;

write('nhap a,b: ');readln(a,b);

writeln('cv: ',(a+b)*2);

writeln('s: ',a*b);

writeln(' cheo: ',sqrt(sqr(a)+sqr(b));

readln;

end.

-.-