var a:real;
begin 
write('nhap canh');readln(a);
write ('chu vi hinh vuong abcd la',a*4);
write('dien tic hinh vuong la',a*a);
readln
end.
như bài trên ta thay a=AB=6 thì cho ra
chu vi hinh vuong la 24
dien tich hinh vuong la 36