100 балловвв
Определить, является ли треугольник со сторонами a, b,c равнобедренным.

===== PascalABC.NET =====

begin

 var (a, b, c) := ReadReal3('Задайте a, b, c:');

 if (a = b) or (a = c) or (b = c) then

   Print('Треугольник равнобедренный')

 else

   Print('Треугольник разносторонний')

end.

Нет, не является равнобедренным, т. к у равнобедренного две стороны равны. Этот треугольник — разносторонний

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.

знаки той же арифметики, если эмоции- те же смайлики.