program TinhCVDT_HinhVuong;
var
canh, chuvi, dientich: real;
inputFile, outputFile: text;
begin
// Mở tệp văn bản đầu vào để đọc giá trị cạnh hình vuông
assign(inputFile, 'HV.txt');
reset(inputFile);
readln(inputFile, canh);
close(inputFile);

// Tính chu vi và diện tích của hình vuông
chuvi := 4 * canh;
dientich := canh * canh;

// Mở tệp văn bản đầu ra để ghi kết quả
assign(outputFile, 'HVS.txt');
rewrite(outputFile);

// Ghi kết quả vào tệp văn bản đầu ra
writeln(outputFile, 'Chu vi hinh vuong: ', chuvi:0:2);
writeln(outputFile, 'Dien tich hinh vuong: ', dientich:0:2);

// Đóng tệp văn bản đầu ra
close(outputFile);
end.