Подскажите, как решить на паскале?

Участок сада треугольной формы с длинами границ 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.