срочноСекретный замок для сейфа состоит из 10 расположенных в ряд ячеек, в которые надо вставить игральные кубики. Но дверь открывается только в том случае, когда в любых трех соседних ячейках сумма точек на передних гранях кубиков равна 10. (Игральный кубик имеет на каждой грани от 1 до 6 точек.) Напишите программу, которая разгадывает код замка при условии, что два кубика уже вставлены в ячейки

var
  a: array [1..10] of integer;
  i: integer;
begin
  readln(a[1], a[2]);
  write(Код замка: , a[1], , a[2], );
  for i := 3 to 10 do
  begin
    a[i] := 10 - (a[i - 1] + a[i - 2]);
    write(a[i], );
  end;
end.