1/ Tính chu vi, diện tích hình vuông có cạnh là a: 
PROGRAM HINH VUONG; 
{Nhap canh a cua hinh vuong. Tinh chu vi, dien tich cua hinh vuong ay} 
VAR a:real; 
BEGIN 
Write('Nhap canh a: ');readln(a); 
Writeln; 
If a>0 then 
begin 
Writeln('Chu vi P = ',4*a:6:2); 
Writeln('Dien tich S = ',a*a:6:2); 
end 
Else writeln(#7,'Khong thuc hien vi a <= 0'); 
Readln 
END.