var dimension:real;

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

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

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