Линейные алгоритмы. Вычислить периметр и площадь треугольника.

[sqr]

Добрый вечер, нужен совет.
Задание:
Даны координаты трех вершин треугольника (x1,y1) (x2,y2) (x3, y3). Найти его периметр и площадь.
Написал кое как, но после ввода значений вылазит ошибка. Что не так?
Вот:

[Leshii]

Uses crt;
var x1,x2,x3,y1,y2,y3:integer;
    p,S,a,b,c:real;
    begin
    clrscr;
    write('(x1,y1)= ');read(x1,y1);
    write('(x2,y2)= ');read(x2,y2);
    write('(x3,y3)= ');read(x3,y3);
     a:=sqrt(sqr(x2-x1)+(sqr(y2-y1)));
     b:=sqrt(sqr(x1-x3)+(sqr(y1-y3)));
     c:=sqrt(sqr(x2-x3)+(sqr(y2-y3))); 
     P:=(a+b+c)/2;
     S:=sqrt(p*(p-a)*(p-b)*(p-c));
     writeln(P:1:1);
     writeln(S:1:1);
     readln;
     end.

там где отмечено красным у тебя в коде просто скобочки мешали.
Скопируй этот код и приведи свою прогу в чувство.

[sqr]

Сообщение от Leshii

[CODE]
там где отмечено красным у тебя в коде просто скобочки мешали.
Скопируй этот код и приведи свою прогу в чувство.

Спасибо, работает