Задание на фото. Решите информатическую задачу и запишите её в Паскале заранее благодарю.

var a,b,h,c,p:real; begin write('Введите a,b,h:') readln(a,b,h); p:=a+b+2*(sqrt(sqr((b-a)/2)+sqr(h)); write('p=',p) end.

Решение задачи в приложенном файле