программа на паскале для вычисления первых n чисел Фибоначчи

var  n, a, b, c : integer;begin  a := 1;  b := 1;  write('n? ');  readln(n);  write(a,' ',b,' ');  for var i:=3 to n do  begin    c := a + b;    write(c,' ');    a := b;    b := c;  end;end.