HV PASCAL

var a,s,p:longint;
begin
    assign(input,’hv.inp’);reset(input);
    assign(output,’hv.out’);rewrite(output);
    read(a);                        // nhap so trong input vao bien a
    p:=a*4;                            // tinh chu vi
    s:=a*a;                            // tinh dien tich
    writeln('Chu vi la: ',p);        //xuat chu vi
    write('Dien tich la: ',s);        //xuat dien tich
end.