Составить программу в паскале для сравнения периметров двух прямоугольников
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.
program pr1; var n,p1,p2:real; begin writeln('Введите периметр 1-ого и 2-ого треугольника'); readln(p1); readln(p2); if p1>p2 then n:=p1-p2 else n:=p2-p1; writeln('Один треугольник больше другого на ',n); readln; end.