Пожалуйста, помогите с программным кодом для решения задачи
Вычислить сумму первых чисел Фибоначчи, которые не превосходят
1000
program Fibonacci;
var
Sum, Fprev, Fcurr: integer;
begin
Fprev := 0;
Fcurr := 1;
Sum := 0;
repeat
Sum := Sum + Fcurr;
Fcurr := Fcurr + Fprev;
Fprev := Fcurr - Fprev;
until Fcurr > 1000;
writeln(Sum);
end.