var dimension,Area,r,side:real;

procedure AreaSquare;
begin
Area:=side*side;
end;

procedure AreaCircle;
begin
Area:=Pi*r*r;
end;

begin
write('enter the dimension ');
read(dimension);
side:=dimension;
AreaSquare;
write('the area of a square with a side ',side:10:2,Area:10:2);
writeln;
r:=dimension;
AreaCircle;
write('the area of a circle with radius ',r:10:2,Area:10:2);
writeln;
{now we look at the two areas after the dimension is doubled}
side:=2*dimension;
AreaSquare;
write('the area of square after doubling the side length is
',Area:10:2);
writeln;
r:=2*dimension;
AreaCircle;
write('the area or circle after doubling the radius ',Area:10:2);
writeln;
end.