Тут потрібні вкладені цикли. Зовнішнім перебираємо "a", а внутрішнім "a" (із зсувом) і "b" одночасно, і порівнюємо. Якщо внутрішній цикл дійшов до кінця, і усі елементи співпали, то задачу вирішено.
Спробуйте зробити хоч щось, а коли буде якийсь код, форумчанам буде легше підказати вам щось конкретне.

Освіжити пам'ять можна тут: http://replace.org.ua/topic/814/
Іще непогано тут написано, але про Делфі (сучасний Паскаль): http://www.delphikingdom.com/lyceum/seminar.asp?id=4 http://www.delphikingdom.com/lyceum/seminar.asp?id=6

program xren;
var
  srav,sovpalo:integer;
const 
  a:array[1..18] of integer=(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2);
  b:array[1..15] of integer=(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2);
begin
  for var i:=1 to 18-15 do
  begin
    sovpalo:= 0;
    for var j:=1 to 15 do
    begin
      srav:= srav + 1;
      if (a[i+j] = b[j]) then sovpalo := sovpalo +1;
    end;

    if (sovpalo = 15) then 
    begin
      writeln(i);
      writeln(srav);
    end;
  end; 
end.

1 я осилив, допоможіть з кнутом і морісом баєром. Ато я якось недуже зрозумів ці методи.

a = (1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 2),
b = (1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 1; 2)
2Користуючись методом Кнута – Моріса – Пратта (КМП) пошуку підпослідовності у послідовності, встановити входження деякого образу у базовий рядок. Якщо співпадання має місце, то вказати порядковий індекс елемента в базі, починаючи з якого образ повністю співпадає з елементами бази, інакше – вивести повідомлення про його відсутність. Визначити кількість важких операцій порівняння, що виконуються при цьому.
Користуючись методом Боуера – Мура (БМ) пошуку підпослідовності у послідовності, встановити входження деякого образу у базовий рядок. Якщо співпадання має місце, то вказати порядковий індекс елемента в базі, починаючи з якого образ повністю співпадає з елементами бази, інакше – вивести повідомлення про його відсутність. Визначити кількість важких операцій порівняння, що виконуються при цьому.
Повна умова.