var
  squareRectangle, squareCircle: real;
  perimeterRectangle, perimeterCircle: real;
  diameter, firstSide, secondSide: real;
begin
  squareRectangle := 1;
  squareCircle := 1;
  
  Write('Введите две стороны прямоугольника: ');
  Readln(firstSide, secondSide);
  
  squareRectangle := firstSide * secondSide;
  perimeterRectangle := 2 * (firstSide + secondSide);
  
  Writeln('Площадь прямоугольника: ', squareRectangle, ', периметр: ', perimeterRectangle);
  
  Write('Введите диаметр круга: ');
  Readln(diameter);
  
  squareCircle := Pi * Power(diameter / 2, 2.0);
  perimeterCircle :=  Pi * diameter;
  
  Writeln('Площадь круга: ', squareCircle, ', периметр (длина) круга: ', perimeterCircle);
end.