Надо вывести n первых чисел Фибоначчи

Begin
write(Введите целое число n (n > 1): );
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, , 1, );
for var i := 3 to n do
begin
var c := a + b;
write(c, );
a := b;
b := c;
end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.