Оставить программу Pascal вывода на экран n чисел Фибоначчи

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 begin   SeqGen(ReadInteger('n='),1,1,(x,y)->x+y).Println end. Тестовое решение: n= 10 1 1 2 3 5 8 13 21 34 55

Числа Фибоначчи – это элементы числовой последовательности, в которой каждое последующее число равно сумме двух предыдущих. var a,b,c,i,n: integer; begin      write('Введи n = ');      readln(n);      a := 0;      write(a,' ');      b := 1;      write(b,' ');      for i:=3 to n do begin            write(a+b,' ');            c := b;            b := a + b;            a := c     end; end.