Напишите процедуру которая принимает параметр - натуральное число N и выводит первые N чисел Фибоначчи

program zz1;

var a, b, n, c, i:integer; / / задаем переменные целого типа

begin

write (' введите натуральное число n '); / / вводим с клавиатуры число

read (n);

a:=1; b:=1; / / получаем первые числа Фибоначчи

write (a, ' ', b, ' '); / / выводим их на экран

i:=2;

while i < n do / / организуем цикл, пока количество чисел Фибоначчи меньше чем заданное число N

begin

c:=a + b; / / получаем следующее число Фибоначчи

write (c, ' '); / / выводим ответ

a:=b;

b:=c;

i:=i + 1; / / увеличиваем счетчик

end;

end.