Напишите программу на PascalAbc, которая находит n-ое число из ряда Фибоначи

//PascalABC.Net 3.2//числа Фибоначчиbeginvar x1:=1; var x2:=0;for var i:=1 to readinteger('n=') dobeginx2+=x1;x1:=x2-x1;end;write ('Fib(n)=', x2)end.