Задано n отрезков. Берут 2 отрезка, и из большего вычитают меньший, большему присваивают значение разности этих отрезков, потом сравнивают знач разности со следующим отрезком, и от большего отнимают меньшее присваивая знач разности большему отрезку, так делают до тех пор, пока не останется одно число.
Какое это число.
Вот что я делал:
uses crt;
var n,i,ln:integer; l:array [1..10] of real;
begin clrscr;
readln(n); {Koli4estvo otrezkov}
for i:=1 to n do
begin
readln(l[i]);
end;
ln:=l[1];
for k:=1 to n-1 do
begin
if ln<l[k+1] then ln:=l[k+1]-ln else ln:=ln-l[k+1];
end;
writeln(ln);
readln;
end.
Выдаёт ошибку 26 на этих строках(точнно не пойму где):
ln:=l[1];
for k:=1 to n-1 do
В чём ошибка?