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

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