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

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

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