<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadAllText('input.txt').ToIntegers;
a.Println
end.
<h2 /><h2>Во втором вложении файл input.txt</h2>
Var
a:array[1..100] of integer;
i,n,k,s:integer;
begin
write('Введите количество членов последовательности: ');
readln(n);
a[1]:=1;
a[2]:=1;
s:=0;
for i:=3 to n do
a[i]:=a[i-2]+a[i-1];
write('Последовательность Фибоначчи: ');
for i:=1 to n do begin
s:=s+a[i];
write(a[i], ' ');
end;
writeln;
write('Введите искомый член последовательности: ');
readln(k);
for i:=3 to k do
a[i]:=a[i-2]+a[i-1];
writeln(k, '-й член последовательности: ',a[i], ' ');
writeln('Сумма ',n,' первых членов последовательности: ',s);
end.