Ввести 3 числа - стороны треугольника (причем третью сторону с проверкой и повторным вводом, если она не удовлетворяет условию). Найти высоту, проведенную к большей стороне. Решить в Паскале! Срочно! Пожалуйста!!!!!

var a, b, c, max, p, h : real;begin write('введите сторону а'); readln (a);write('введите сторону b'); readln (b);write('введите сторону c'); readln (c);while ((c >a+b) or (a>b+c) or (b>a+c))beginwrite ('введите повторно сторону с'); readln (c);end;if (a>=b) and (a>=c) then max:=aelse if (b>=a) and (b>=c) then max:=belse if if (c>=b) and (c>=a) then max:=c;p:=(a+b+c)/2h:= 2*sqrt (p*(p-a)*(p-b)*(p-c))/max;writeln ('h= ',h);end.