помогите исправить ошибку.

[alen666]

Люди выдаёт ошибку что типо чтото недописано...я немогу найти ето...просто все варианты что знал перепробовал
program Winawin;
var
a,b,c,x1,x2,x3,y1,y2,y3,P,S:real;
begin
writeln ('Vvedite koordinati vershin');
write ('x1=');
readln (x1);
write ('y1=');
readln (y1);
write ('x2=');
readln (x2);
write ('y2=');
readln (y2);
write ('x3=');
readln (x3);
write ('y3=');
readln (y3);
a:=sqrt('sqr(x2-x1)+(sqr(y2-y1));
b:=sqrt('sqr(x3-x2)+(sqr(y3-y2));
c:=sqrt('sqr(x3-x1)+(sqr(y3-y1));
if (a<>0) and (b<>0) and (c<>0);
then
begin
P:=a+b+c
S:=sqrt((p/2)*(p/2-a)*(p/2-b)*(p/2-c));
end
else
writeln ('Treugolnik sushestwuet');
readln;
end.
Исправьте ошибки пожолуста,Заранее блогодарен

[Карась]

program Winawin;
var
a,b,c,x1,x2,x3,y1,y2,y3,P,S:real;
begin
writeln ('Vvedite koordinati vershin');
write ('x1=');
readln (x1);
write ('y1=');
readln (y1);
write ('x2=');
readln (x2);
write ('y2=');
readln (y2);
write ('x3=');
readln (x3);
write ('y3=');
readln (y3);
a:=sqrt('sqr(x2-x1)+(sqr(y2-y1)); - ошибка.
b:=sqrt('sqr(x3-x2)+(sqr(y3-y2)); - ошибка
c:=sqrt('sqr(x3-x1)+(sqr(y3-y1)); - ошибка
if (a<>0) and (b<>0) and (c<>0); - ошибка
then
begin
P:=a+b+c - ошибка
S:=sqrt((p/2)*(p/2-a)*(p/2-b)*(p/2-c));
end
else
writeln ('Treugolnik sushestwuet');
readln;
end.

1)Что касается первых 3х ошибок:
a := sqrt ( ' sqr( x2 - x1 ) + ( sqr ( y2 - y1 ) ) );

Какойто лишний апостроф и недописанна одна скобочка.

2)if (a<>0) and (b<>0) and (c<>0); - ошибка
Это блок if then... тут точка с запятой в конце ненужна вовсе.
if (a<>0) and (b<>0) and (c<>0)

2) P:=a+b+c - ошибка
Пропустил ';' в конце. P:=a+b+c;

[alen666]

Спасибо огромное

[alen666]

И ещё одно-Что надо прописать и где чтоб при несоответствии програма выдавала (треугольник НЕ существует)?

[Карась]

Наверное надо проверить не лежат ли всё три точки на одной прямой...
Если лежат, то это не треугольник.

[alen666]

если не сложно можеш сделать....плиз очень надо...ато у меня уже просто бошка не соображает(я уверен тебе ето проверить и зделать как надо на минуты 3...Оч сильно прошу...

[Карась]

А как выглядит исходный текст задания?

Надо просто определить существует ли треугольник который задал пользователь?

[alen666]

как я понял исходный текст ето-
program Winawin;
var
a,b,c,x1,x2,x3,y1,y2,y3,P,S:real;
begin
writeln ('Vvedite koordinati vershin');
write ('x1=');
readln (x1);
write ('y1=');
readln (y1);
write ('x2=');
readln (x2);
write ('y2=');
readln (y2);
write ('x3=');
readln (x3);
write ('y3=');
readln (y3);
a:=sqrt(sqr(x2-x1)+(sqr(y2-y1)));
b:=sqrt(sqr(x3-x2)+(sqr(y3-y2)));
c:=sqrt(sqr(x3-x1)+(sqr(y3-y1)));
if (a<>0) and (b<>0) and (c<>0)
then
begin
P:=a+b+c;
S:=sqrt((p/2)*(p/2-a)*(p/2-b)*(p/2-c));
end
else
writeln ('Treugolnik sushestwuet');
readln;
end.

[Карась]

Это исходный код. Мне надо само задание, которое от тебя хотят.

Это то что тебе дали на бумажке и сказали что надо написать программу.

[alen666]

(x1;y1)U(x2;y2)U(x3;y3)
Наити: P(Периметр),S(Площидь) треугольника
решать мы начали в класе,дали домой закончить...у меня подозрение что чтото не так...