Где ошибка

Где ошибка
Написать программу для определения вида треугольника за сторонами и прямоугольный он или нет
Пишет ошибку 26.Турбо ПАСКАЛЬ
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))=z) then
Writeln ('Равносторонним')
If ((x=y))<>z) then
Writeln ('Равнобедренным')
If ((y<>x))<>z) then
Writeln ('Разносторонний')
Else Writeln ('Нет')
End;
2:begin
If c:=90 then
Writeln (' Прямоугольным')
Else Writeln (' Не прямоугольным')
end;
end;
end.

  • Для ошибки 26 есть решение 48.
    Кроме номера, там что-то еще написано? Вот и перепиши сюда.
  • ((x=y))=z заменить на x=y and y=z
    (x=y))<>z заменить на x=y and y<>z
    (y<>x))<>z заменить на x<>y and y<>z and x<>z
    If c:=90 then заменить на if c=90