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

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