Найти n=ый элемент и сумму ряда фибоначчи? на тему цикл с известным числом повторения

это если без массива

var n,i:integer;

a0,a1,a2,s:real;

Begin

  read(n);

  for i:= 1 to n do begin

    if i<3 then a0:=1

    else a0:=a1+a2;

    s:=s+a0;

    a2:=a1;

    a1:=a0;

  end;

  writeln(a0, s);

End.