program Square;varside, area, perimeter: real;beginwrite('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.
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.