Как составить программу в АВС Pascal?

А что дано?
Треугольник с заданными координатами вершин?

Если да, то пишешь (я давно на паскале не кодил, так что могу ошибиться):
var x1,x2,x3,y1,y2,y3: integer; {объявили целочисленные координаты вершин тр-ка}
s,p,a,b,c: integer; {Площадь, периметр, стороны треугольника}
l1,l2,l3:real; {углы, или функции углов}
begin
readln(x1);readln(y1); //Задаем с клавиатуры координаты вершин
readln(x2);readln(y2);
readln(x3);readln(y3); {Вместо этих шести readln-ов можно объявить двумерный массив и задавать координаты в него}
{Сейчас узнаем длины каждой стороны}
a:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)); {будет работать при целочисленном a (a:integer) (т.е. надо подбирать такие x1,x2,y1,y2, чтобы а было целым)}
b:=sqrt((x2-x3)*(x2-x3)+(y2-y3)*(y2-y3));
c:=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1));
{Периметр}
p:=a+b+c;
writeln('Периметр = ',p);//выводим периметр на экран
{Площадь}
s:=sqrt({Здесь вбей формулу Герона, все данные для применения герона уже получены});
writeln('Площадь = ',s);
{углы}
//Нужно считать по теореме косинусов

Будут вопросы - пиши)