программа на паскале для вычисления первых 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.