Составить программу, которая определяет встречаются ли в значении строковой величины два подряд идущих одинаковых символа

Using system; using system.collections.generic; using system.linq; using system.text; namespace consoleapplication4 {       class program       {               static void main(string[] args)               {                       bool result = false;                       console.writeline("введи строку");                       string str = console.readline();                       for (int i = 0; i < str.length - 1; i++)                       {                               if (str.substring(i, 1) == str.substring(i + 1, 1))                               {                                       result = true;                                       break;                               }                       }                       if (result == true)                               console.writeline("да, встречаются");                       else                               console.writeline("нет, не встречаются");                       console.readkey();               }       } }

Program treyg; uses crt; var x1,y1,x2,y2,x3,y3 : integer; a,b,c,s,p : real; begin write('введите координаты первой точки: '); readln(x1,y1); write('введите координаты второй точки: '); readln(x2,y2); write('введите координаты третьей точки: '); readln(x3,y3); a: =sqrt(sqr(x1-x2)+sqr(y1-y2)); b: =sqrt(sqr(x2-x3)+sqr(y2-y3)); c: =sqrt(sqr(x3-x1)+sqr(y3-y1)); if ((a+b)> c) and ((b+c)> a) and ((c+a)> b) then writeln('данные координаты не могут являться вершинами треугольника') else begin p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln('площадь треугольника ',s); end end.