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

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.

пролететь - расстояние

проехать на лифте - номер этажа 

спрыгнуть - высота, скорость

поесть - количество

повернуть - время или направление

а) 400 * 2,5 = 1000 кб

б) 64 : 2,5 = 25,6 = 25 страниц

в) нужен   диск - cd-r или cd-rw