program page29q6; uses wincrt;
var length, width, perimeter, area : integer;
begin
  write('Length? ');
  readln(length);
  write('Width? ');
  readln(width);
  writeln;
  perimeter := (length+width)*2;
  area := length*width;
  writeln('Perimeter is ',perimeter,' cm');
  writeln('Area is ',area,' sq cm')
end.

program page29q7; uses wincrt;
var radius, area, circumference : real;
begin
  write('Radius? ');
  readln(radius);
  writeln;
  area := 3.1416*radius*radius;
  circumference := 2*3.1416*radius;
  writeln('Area is ',round(area),' square units');
  writeln('Circumference is ',round(circumference),' units')
end.