Где ошибка???Турбо Паскаль Ошибка 57

[PASKAL12]

Написать программу для определения вида треугольника за сторонами и прямоугольный он или нет
Пишет ошибку 57.Турбо ПАСКАЛЬ

Program Zadagcha_2; 
var a,b,c,x,y,z:integer; 
Begin 
Writeln ('Число'); 
Read (a); 
Writeln ('1- вид за сторонами'); 
Writeln ('2- вид треугольника'); 
case a of 
1:begin 
If  x=y and y=z then 
Writeln ('Равносторонним') 
If x=y and y<>z  then 
Writeln ('Равнобедренным') 
If x<>y and y<>z and x<>z then 
Writeln ('Разносторонний') 
Else Writeln ('Нет') 
End; 
2:begin 
If c=90 then 
Writeln (' Прямоугольным') 
Else Writeln (' Не прямоугольным') 
end; 
end; 
end.

[ViktorR]

А ошибок несколько:

...
1:begin 
If  x=y and y=z then 
Writeln ('Равносторонним') 
If x=y and y<>z  then 
Writeln ('Равнобедренным')
...

Точки с запятыми не ставим из принципа?
Условие надо брать в скобки:

if ((x=y) and (y<>z)) ...

Как-то так, ...

[PASKAL12]

Не помогло

[Poma][a]

Program Zadagcha_2; 
var a,b,c,x,y,z:integer; 
Begin 
Writeln ('Число'); 
Read (a); 
Writeln ('1- вид за сторонами'); 
Writeln ('2- вид треугольника'); 
case a of 
1:begin 
If  (x=y) and (y=z) then 
Writeln ('Равносторонним') 
else If (x=y) and (y<>z)  then 
Writeln ('Равнобедренным') 
else If (x<>y) and (y<>z) and (x<>z) then 
Writeln ('Разносторонний') 
Else Writeln ('Нет') 
End; 
2:begin 
If c=90 then 
Writeln (' Прямоугольным') 
Else Writeln (' Не прямоугольным') 
end; 
end; 
end.

И что?
Кстати, турбо 7.0 - это древность, вообщем, кланяемся, говорим : "Спасибо, дедушка Турбо".. И идем качать Free Pascal.

[PASKAL12]

Не помогло

[PASKAL12]

А нет помогло

[ViktorR]

Вот только не спешите сдавать, так как кроме проверки на равенство/неравенство сторон надо проверять возможность построения треугольника. Это тогда, когда одна и более сторон неравные другим.
Треугольник можно построить, если сумма двух сторон больше третьей.


Как-то так, ...