Tham khảo!
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.