Ответ: P-периметр, A-длина одной стороны, B-длина одной из двух другихP=2B+AB=(P-A)/2var p,a:real;beginread (p,a);write ((p-a)/2);end.