Помогите студенту с задачами

[fadea]

Прошу помощи у Вас, опытных программистов , познать великие знания языка Pascal.
Имеется три задачи.

Первая : Вводятся начальный член и шаг арифметической прогрессии. Вводится также число. Определить, принадлежит ли введенное число арифметической прогрессии с введенными начальным членом и шагом

Вторая : Вводится число. Определить, является ли оно степенью двойки

Третья : Дано натуральное число. Верно ли, что в его десятичной записи есть шесть единиц подряд?

Буду очень благодарен , если будет добавлен визуальный код.
Спасибо заранее !

[AVer]

Эх, народ, все за вас реши да разжуй...
Функция для первой:

Function Progress(X,N,I:Integer):Boolean;  // X - Число, N - Начальное, I - интервал
Begin
If X > N Then Begin
While X >= N Do X:=X-I;
If X = N Then Progress:=True Else Progress:=False;
End Else
Begin
While X <= N Do X:=X-I;
If X = N Then Progress:=True Else Progress:=False;
End;
End;

[A_r_r_a_y]

Вторая:

program stepen;
uses crt;
var
  st,n : integer;
begin
  clrscr;
  write('Vvedite n: ');
  readln(n);
  st:=2;
  while (st<=n) do
    begin
      if (st=n) then
        begin
          write(n,' - stepen 2');
          readkey;
          exit;
        end;
      st:=st*2;
    end;
  write(n,' - ne stepen 2');
  readkey;
end.

[A_r_r_a_y]

третья:

program edinica;
uses crt;
var
   i,k : integer;
   n : longint;
   s : string;
   one : boolean;
begin
  clrscr;
  write('Vvedite chislo: ');
  readln(n);
  str(n,s);
  one:=true;
  for i:=1 to length(s)-5 do
    begin
      if (s[i]='1') then
        begin
          for k:=1 to 5 do
            if (s[i+k])<>'1' then
              one:=false;
          if (one=true) then
            begin
              write(n,' - soderzhit 6 podryad idushih edinic');
              readkey;
              exit;
            end;
        end
     end;
  write(n,' - ne soderzhit 6 podryad idushih edinic');
  readkey;
end.

[Serge_Bliznykov]

третью задачу можно и через поиск подстроки решить ;-)

program edinica;
var
   n : longint;
   s : string;
begin
  WriteLn;
  Write('Vvedite chislo: ');
  readln(n);
  str(n,s);
  if Pos('111111',s)>0 then
     WriteLn(n:1,' - soderzhit 6 podryad idushih edinic')
  else   
     WriteLn(n:1,' - NE soderzhit 6 podryad idushih edinic');
  Readln;
end.