Ннайти число фиобаначи с номером n

var a1,a2, n, i: integer; begin a1: =1; a2: =1; write ('n='); readln (n); for i: =2 to n — 1 do begin a1: =a1+a2; a2: =a1 — a2; end; writeln (n, ' элемент последовательности Фибоначчи равен ', a1); end.