Задача

[Lozergod]

Доказать в паскале что треугольник со сторонами a,b и c равнобедренный

[alex_fcsm]

var a,b,c:real;
begin
Writeln('Inpit a,b,c');

readln(a,b,c);
if (a=b)or(a=c)or(c=b)) then writeln('Ravnob')
   else writeln('NO');
end.

[Lozergod]

спасибо большое!!

[Lozergod]

пишет ошибку 106

[alex_fcsm]

Там русская буква с в строке

[Lozergod]

ошибка 106 и указывает на реад лн

[Lozergod]

ошибка 57 THEN EXprcted.

[Lozergod]

с then я убралошибку и снова появляеться ошибка 106

[alex_fcsm]

var a,b,c:real;
begin
Writeln('Inpit a,b,c');
readln(a,b,c);
if (a=b)or(a=c)or(c=b) then writeln('Ravnob')
   else writeln('NO');
end.

[Lozergod]

тоже самое.....ужас какой то =_+выходт ошибка 106....