1. Cho 2 số nguyên a,b . Viết hàm (function) tính chu vi và diện tích hình chữ nhật 2. Cho 2 số nguyên a,b . Viết hàm (function) tính chu vi và diện tích hình vuông

1/

uses crt;
var a,b:real;
function cv(x,y:real):real;
begin
   cv:=(x+y)*2;
end;
function dt(x,y:real):real;
begin
   dt:=a*b;
end;
begin
   write('Nhap a: '); readln(a);
   write('Nhap b: '); readln(b);
   writeln;
   write('Chu vi hinh chu nhat la: ',cv(a,b):4:2);
   writeln;
   write('Dien tich hinh chu nhat la: ',dt(a,b):4:2);
   readln
end.
2/ Đề hơi lag :V Hình vuông có 4 cạnh bằng nhau nhé.

uses crt;
var a:real;
function cv(x:real):real;
begin
   cv:=x*4;
end;
function dt(x:real):real;
begin
   dt:=x*x;
end;
begin
   write('Nhap canh hinh vuong: '); readln(a);
   writeln;
   write('Chu vi hinh vuong la: ',cv(a):4:2);
   writeln;
   write('Dien tich hinh vuong la: ',dt(a):4:2);
   readln
end.