Найти 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.