Подскажите, как решить на паскале? Участок сада треугольной формы с длинами границ a=3, b=4, c=5. Найдите длину ограды и количество удобрений нужных для участка.

program zadacha; uses crt; var a, b, c: integer; u, p, s: real; begin clrscr; write ('vvedite kolichestvo udobrenii, nuzhnyh dlya 1 m^2: '); readln (u); write ('vvedite storony uchastka: '); // таким образом можно ввести любые // стороны, не только 3, 4 и 5 readln (a, b, c); //  можно сразу написать a:=4; b:=3; c:=5; p:=a+b+c; writeln (' dlina ogrady - ', p:0:2); p:=p/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); // вычисление площади по формуле Герона u:=u*s; writeln ('kolichestvo trebuemyh udobrenii - ', u:0:2); readkey; end.