Ответ:

1.

var

a, b, c, i: integer;

begin

a := 1;

b := 1;

for i := 3 to 40 do

begin

 c := a + b;

 a := b;

 b := c;

end;

writeln(a);

end.

2.

var

n, i, a, count: integer;

begin

readln(n);

count := 0;

for i := 1 to n do

begin

 read(a);

 if (abs(a) mod 10 = 4) and (a mod 6 = 0) then

  count := count + 1;

end;

writeln(count);

end.

Объяснение:

1. Записываем второе и третье числа Фибоначчи в переменные а и b соответственно. Затем в цикле кладем в переменную а следующие числа по порядку, то есть сначала 1 (это третье число Фибоначчи), потом 2, потом 3, потом 5, потом 8 и т.д. Для этого вычисляется следующее после b число Фибоначчи сохраняется в переменную с. Потом заменяем числа Фибоначчи с номерами i, i + 1, хранящиеся в а и b соответственно, на числа с номерами i + 1, i + 2, хранящиеся в b и с соответственно. После завершения цикла сороковое число будет лежать в переменной а.

2. Сохранять количество будем в переменной count. Перед началом подсчета присвоим ей 0. Далее по очереди считываем числа и проверяем, делятся ли они на 6 и имеют ли на конце 4 (остаток от деления на 10 должен быть равен 4). Прибавляем 1 к ответу, если проверка прошла.