Пожалуйста помогите, но не из Интернета, там вроде не правильно

Здравствуйте! Сможете мне пожалуйста с информатикой помочь ?

Я могу добавить задания

Var  xa,ya,xb,yb,xc,yc: integer;  A,B,C,p: real;Begin  Write('xa = ');ReadLn(xa);  Write('ya = ');ReadLn(ya);  Write('xb = ');ReadLn(xb);  Write('yb = ');ReadLn(yb);  Write('xc = ');ReadLn(xc);  Write('yc = ');ReadLn(yc);  //Вычислим длины сторон по теореме Пифагора  A := sqrt(sqr(xa-xb)+sqr(ya-yb));  B := sqrt(sqr(xb-xc)+sqr(yb-yc));  C := sqrt(sqr(xc-xa)+sqr(yc-ya));  //Теперь вычислим площадь по формуле Герона  p := (A+B+C)/2;  WriteLn('S = ',sqrt(p*(p-A)*(p-B)*(p-C)));End.