Написать программу в паскале: Найти периметр: произвольного четырехугольника.

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

program PerimeterOfQuadrilateral;
var
  a, b, c, d, perimeter: real;
begin
  writeln('Введите стороны четырехугольника a, b, c, d:');
  readln(a, b, c, d);
  
  perimeter := a + b + c + d;
  
  writeln('Периметр четырехугольника равен: ', perimeter);
end.