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: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

стр1: 'дерево';

стр2: 'обработка';

стр3: стр1+стр2;

                      стр3: ='деревообработка';