program Square;
var
side, area, perimeter: real;
begin
write('Enter the length of the side of the square: ');
readln(side);

area := side side;
perimeter := 4 side;

writeln('The area of the square is: ', area:0:2);
writeln('The perimeter of the square is: ', perimeter:0:2);
end.