Помогите, даю много баллов!!!!!Где у меня здесь ошибка?var k, i, j

Помогите, даю много баллов!!!!!
Где у меня здесь ошибка?
var
k, i, j : integer;
a : array [1..10,1..3] of longint;
x, y, z : longint;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
read(k);
for i:=1 to 10 do for j:=1 to 3 do a[i,j]:=0;
a[10,1]:=2;
while kgt;10 do begin k:=k-1;
x:=(a[1,1]+a[1,2]+a[1,3]) mod 1000000;
y:=a[10,1];
z:=a[10,2];
for i:=1 to 9 do for j:=1 to 3 do a[i,j]:=a[i+1,j];
a[10,1]:=x; a[10,2]:=y; a[10,3]:=z
end;
write((a[k,1]+a[k,2]+a[k,3]) mod 1000000);
close(output)
end.
Задание:
Как знаменито, стакан предмет очень многофункциональный. Самый банальный метод внедрения ёмкость для жидкости, самый оригинальный ещё не изобретён. А мальчишка Слава строит из стаканов башни, пользуясь дивным свойством стаканов ставиться друг на друга либо вставляться друг в друга.

Слава строит башни из стаканов вышиной 10 см, которых у него имеется бесконечное количество. Стакан можно поставить на теснее имеющуюся конструкцию или дном вниз, или дном ввысь. Если предшествующий стакан установлен аналогично новенькому, то конструкция вырастет на 1 сантиметр, так как стаканы надеваются друг на друга. В неприятном случае башня вырастет на 10 см.

Единожды Слава увидел, что ни в коем случае нельзя вставлять друг в друга более трёх стаканов, по другому один из стаканов непременно разобьётся.

На рисунке показан пример башни высотой 32 сантиметра из 5 стаканов.

Слава ухитрился построить благовидную башню вышиной k см. Но когда он пошёл за фотоаппаратом, чтобы запечатлеть это достижение, нечаянно задел конструкцию, и башня свалилась. Пытаясь вернуть своё творение, Слава сообразил, что есть несколько методов построить башню подобной высоты. Помогите Славе вычислить четкое количество методов.

Милана Гранска 2019-04-08 14:52:32

Ты файл input.txt создал?

Кристина 2019-04-08 14:46:39

Не, я на сайте с Паскалем инспектировал, мыслил там автоматом создастся.

Павел Бартонь 2019-04-08 14:45:56

так ты сообразил как либо нет ?

Наташка Шудренко 2019-04-08 14:55:46

знаешь, пробуй убрать работу с файлами (т.е. операторы assign и с ним связанные) и так выслать решение, обязано пройти, а так просто я немножко занят, но пробуй

Arsenij Marderovskij 2019-04-08 14:51:05

если не поможет, отпишись в личку