Написать программу: Распечатать числа Фибоначчи от 1 доN (каждое число в последовательности, начиная с третьего, получается

Program zadacha_1;
 var
 a,b,c,n, i:integer;
begin
 writeln('Введите число n');
 readln(n);
 a:=1;
 b:=1;
writeln (a,b);
 i:=3;
 repeat
 c:=a+b;
 writeln( c);
a:=b;
b:=c;
i:=i+1
until i>n;
 readln;
 end.