var Area,dimension:real;

procedure AreaSquare(side:real);
begin
Area:=side*side;
end;

procedure AreaCircle(r:real);
begin
Area:=Pi*r*r;
end;

begin
write('enter the dimension ');
read(dimension);

AreaSquare(dimension);
write('the area of a square with a side ',dimension:10:2,Area:10:2);
writeln;

AreaCircle(dimension);
write('the area of a circle with radius ',dimension:10:2,Area:10:2);
writeln;

{now we look at the two areas after the dimension is doubled}

AreaSquare(2*dimension);
write('the area of square after doubling the side length is ',Area:10:2);
writeln;

AreaCircle(2*dimension);
write('the area or circle after doubling the radius ',Area:10:2);
writeln;

end.