<em>Последовательность Фибоначчи начинается с 0, если опечатки нет, то вот:</em>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3 />
begin
ArrGen(ReadInteger('n=') + 1, 1, 1, (i, j)-> i + j).Last.Println;
end.
<u>Пример вывода и ответ для числа 40 в приложении.</u>
В текстовый редактор нельзя вставить аудиофайл.
50, если применять способ хранения «бит на пиксель».
Логика ниже. Подгони под нужный яп:
read(n,k);
s:=0;
for i:=1 to n do s:=s+1^k;
print(s);