Ввести целое число и определить верно ли что в его записи есть две одинаковые цифры стоящие рядом. написать программу в паскале без массивов

Var      i: integer;     n: string;     b: boolean; begin    writeln('n = ? ');     readln(n);     b: = false;     for i: = 1 to length(n)-1 do        if n[i] = n[i+1] then          b: = true;           write(b);     readln end.

program massiv;

uses crt;

var i,j: integer;

        a: array[1..6,1..6] of integer;

begin

      clrscr;

      randomize;

      for i: =1 to 6 do            begin                for j: =1 to 6 do                    begin                        a[i,j]: =random(101)-50;                   end;         end;

 

  for i: =1 to 6 do      begin        for j: =1 to 6 do            begin              write(a[i,j]: 3);             end;   writeln; end;

 

readkey;

end.

 

 

 

 

 

 

 

 

 

 

var a,b,c,p: integer; begin  writeln('введите a');     readln(a);   writeln('введите b');     readln(b);   writeln('введите c');     readln(c);   if (a< =b+c) and (b< a+c) and (c< =a+b) then      begin            p: =(a+b+c) div 2;             writeln('треугольник может существовать');             writeln('площадь: ', sqrt(p* ((p-a)*(p-b))*((p-: 1: 2);   //формула герона      end  else writeln('не треугольник');   readln(); end.