програмирование в паскаль.... продолжите программу о числах Фибоначчи

var
a,b,c,d,n,r: integer;
begin
writeln('Âûâåñòè íà ýêðàí ïåðâûå n ÷èñåë Ôèáîíà÷è ');
writeln('ââåäèòå êîëè÷åñòâî ýëåìåíòîâ ðÿäà', ' n ');
readln(n);
a := 0;
write(a,' ');
b := 1;
write(b,' ');
for d:=3 to n do
begin
write(a+b,' ');
c := b;
b := a + b;
a := c;
end;
end.

вывести на экран первые числа Фибоначчи, Нужно ещё подсчитать сколько среди них четных чисел.

я сама знаю

я сама знаю, раз программу написала

Алексей, это я сама знаю, я прошу что бы мне подсказали как это будет выглядеть на Паскале. а не сказано на русском языке.