Числа фибоначчи определяются формулами f_1=f_2=1, а каждое следующее равно f_n=f_(n-1)+f_(n-2) (n≥3). вычислить сумму всех чисел фибоначчи, которые не превосходят 1000. паскаль

Если я, правильно понял вас.
То вам это нужно

program kry_4_Febana4i;
var  M,
 F0, F1, F2,
 S: Integer; 
begin
  Write('Введите натуральное М : '); 
ReadLn(M);
 F0 := 1; F1 := 1; F2 := 2;  S := 4;          
Write('Числа Фибоначчи, не превосходящие ', M, ' :', F0:4, F1:4); 
 while F2 <= M do
begin 
   F0 := F1; F1 := F2; Write(F1: 4);   
F2 := F0 + F1; S := S + F2;
 end; 
S := S - F2;  
WriteLn; WriteLn;
WriteLn('О т в е т : Сумма этих чисел равна ', S); ReadLn
end.