PROGRAM HINH VUONG; (Nhập cạnh a của hình vuông. Tính chu vi, diện tích của hình vuông ấy) 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.
