Wynik obliczeń zawsze 10-krotnie mniejszy, niż oczekiwany

Witam chodzi mi o zmienną e, po odpaleniu programu zawsze jest 10krotnie mniejsze niż powinno być z matematycznego punku widzenia (nawet jak mnożę to razy 10). Co jest nie tak?

 program odcinki;

uses crt;
var 
e : real;
a,b,c,d : integer;

plik : text;
BEGIN
writeln('Sprawdz czy z podanych bokow mozna stworzyc trojkat');
writeln('wpisz 1 aby kontynuowac');
readln(d);
if d=1 then
	assign(plik,'odcinki.txt'); {plik w tym samym folderze} 
	reset(plik);
	while not(eof(plik)) do  {dopoki nie skonczy sie plik}{for i:=1 to 5000 do jesli wiadomo ze 5000lini}
	
		begin;
		read(plik,a,b,c,d);
		e:=(b+c+d)/ 2;
		writeln(a,' Boki: ',b,' ',c,' ',d);
		if (b<c+d) and (c<b+d) and (d<c+b)  then writeln('Trojkat: tak');
		if (b<c+d) and (c<b+d) and (d<c+b)  then writeln('Pole: ',e)
		else writeln('Trojkat: nie');
		writeln(' ')
		end;
		
close(plik);
END.

nie wiem czy wysyłać odcinki.txt myślę że to jest zbędne a to numer komórki natomiast b,c,d długości boków. E powinno obliczać pole. z Góry dzięki za pomoc

A od kiedy pole trójkąta to suma długości boków przez 2? o_O Ty chyba przespałeś matematykę w podstawówce albo nie umiesz przepisać wzoru z wikipedii. Rozumiem ze chciałeś tu użyć wzoru Herona, ale jak widać przepisałeś bez zrozumienia tylko 1 linijkę wyprowadzenia z wikipedii. Brawo.
http://pl.wikipedia.org/wiki/Wzór_Herona

co nie zmienia faktu, że wynik podaje mi nie taki jaki powinien z działania wyjść a w podstawówce raczej nie ma wzoru Herona.

PS. Spodziewałem się Twojej chamskiej odpowiedzi czytając kilka tematów...

Ale chyba uczą w podstawówce, że jednostka pola są metry kwadratowe, a nie metry?

pytanie było nieco inne ale DZIĘKI ZA POMOC ;) temat do zamknięcia