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 i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.