var n,t:longint;
function chuvi(n:longint):longint;
begin
chuvi:=n*4;
end;
function dientich(n:longint):longint;
begin
dientich:=n*n;
end;
begin
write('nhap canh hinh vuong :');readln(n);
writeln('chu vi hinh vuong la : ',chuvi(n));
writeln('dien tich hinh vuong la: ',dientich(n));
end.
mình chưa test thử