Напишите программу вычисления суммы первых чисел фибоначи, таких, что их значение s не должно превышать типа integer задача для pascal

Компилятора нету,попробуй этот код var n,sum,a,b,c,i:integer; begin a:=0; b:=1; readln(n);//Посчитать сумму первых n чисел for i:=1 to n do begin sum:=sum+a; c:=a; a:=b; b:=c+a; end; writeln(sum); end. -------------------------------------------------- //Через repeat until var n,sum,a,b,c,i:integer; begin a:=0; b:=1; i:=0; readln(n);//Посчитать сумму первых n чисел repeat sum:=sum+a; c:=a; a:=b; b:=c+a; i:=i+1; until i>=n; writeln(sum); end.