uses crt;

var a,cv,dt:integer;

begin

clrscr;

write('a='); readln(a);</p><p>cv:=a*4;</p><p>dt:=sqr(a);</p><p>if a>0 then</p><p>begin</p><p>writeln('chu vi hinh vuong la: ',cv);

writeln('dien tich hinh vuong la: ',dt);

end

else writeln('vui long nhap so a lon hon 0');

readln;

end.