var x,y,z: Integer; begin writeln('Первый угол: ');Readln(x); writeln('Второй угол: ');Readln(y); writeln('Третий угол: ');Readln(z); if (x = y) and (x = z) and (y = z) then writeln('Треугольник равносторонний!') else if (x = y) or (y = z) or (x = z) then writeln('Треугольник равнобедренный!') else writeln('Простой треугольник! :)') end.