Надо чтобы в лодку сели Бах и Гэ, а Вау и Ах должны поплыть без лодки, так как они плывут быстрее, и поэтому все успеют приплыть туда и вернуться обратно за 18 часов !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
var i:integer;
begin
for i:=15 to 90 do if i mod 15 = 0 then write(i,' ');
end.
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.