Найти m-й член последовательности / Pascal ABC

[Veronika_13]

Найти m-й член последовательности {an}, если известно, что a1=k (натуральное число),
ai+1=2ai - 1, где i=1, 2, 3, ... , и определить, встречается ли в записи результата, хотя бы один раз,
цифра 7.

[Stilet]

С потолка:

var i,m,k,a:integer;
begin
 k:=1;
 m:=10;
 a:=k;write(a:5);
 for i:=2 to m do begin
  a:=2*a; write(a:5);
 end;
 while a<>0 do begin
  if (a mod 10)=7 then begin write('Да'); break; end;
  a:=a div 10;
 end;
 readln;
end.

Не проверял.