Program So_sanh;
 uses crt;
var a,S,C, M : real;
begin
clrscr;
write ('nhap canh cua hinh vuong a:') ;
readln(a);
C:= 4*a;
S:=a*a;
M:= S-C;
If M>0 then write (' hinh vuong co dien tich lon hon chu vi');
If M<0 then write ('hv co DT nho hon chu vi');
if M=0 then write ('hv co Chu Vi va DT bang nhau');
readln;
end.
Chúc bạn học tốt !