Написать программу в паскале: Найти периметр: 1) прямоугольника, ширину и длину вводить с клавиатуры; 2) треугольника, длины всех сторон вводить с клавиатуры; 3) произвольного четырехугольника.

1. Программа нахождения периметра прямоугольника в Паскале:

program PerimeterRect;
var
  width, length, perimeter: real;
begin
  write('Введите ширину прямоугольника: ');
  readln(width);
  
  write('Введите длину прямоугольника: ');
  readln(length);
  
  perimeter := 2 * (width + length);
  
  writeln('Периметр прямоугольника равен: ', perimeter);
end.

2. Программа нахождения периметра треугольника в Паскале:

program PerimeterTriangle;
var
  side1, side2, side3, perimeter: real;
begin
  write('Введите длину первой стороны треугольника: ');
  readln(side1);
  
  write('Введите длину второй стороны треугольника: ');
  readln(side2);
  
  write('Введите длину третьей стороны треугольника: ');
  readln(side3);
  
  perimeter := side1 + side2 + side3;
  
  writeln('Периметр треугольника равен: ', perimeter);
end.

3. Программа нахождения периметра произвольного четырехугольника в Паскале:

program PerimeterQuadrilateral;
var
  side1, side2, side3, side4, perimeter: real;
begin
  write('Введите длину первой стороны четырехугольника: ');
  readln(side1);
  
  write('Введите длину второй стороны четырехугольника: ');
  readln(side2);

  write('Введите длину третьей стороны четырехугольника: ');
  readln(side3);

  write('Введите длину четвертой стороны четырехугольника: ');
  readln(side4);
  
  perimeter := side1 + side2 + side3 + side4;
  
  writeln('Периметр четырехугольника равен: ', perimeter);
end.