viết chương trình tính diện tính hình vuông và hình thoi

uses crt;

var m,n: integer;

s,cv: real;

begin

clrscr;

write ('nhap m: ');  readln (m);

write ('nhap n: ');  readln (n);

s:=(m*n)/2;

cv:=sqrt(((m/2)*(m/2))+((n/2)*(n/2)))*4;

writeln ('dien tich la: ',s:1:2);

readln;

end.

Hình vuông

Source Code Tính Chu Vi Và Diện Tích Hình Vuông  và thoi
#Độ Dài Một Cạnh
a = float(input("Nhập Độ Dài Một Cạnh: "))
#Nửa Chu Vi
print("\nNửa Chu Vi: " + str((a * 4) / 2))
#Chu Vi 
print("Chu Vi : " + str(a * 4))
#Diện Tích
print("Diện Tích : " + str(a**2))