составить программу в паскале для сравнения периметров двух прямоугольников

program pr1;var n,p1,p2:real;beginwriteln('Введите периметр 1-ого и 2-ого треугольника');readln(p1);readln(p2);if p1>p2then n:=p1-p2else n:=p2-p1;writeln('Один треугольник больше другого на ',n);readln;end.