Найдите ошибки в программе,перепишите в исправленном виде:
Var a:[1..10] of real;
I:integer;
S1:=0;
S2:=0;
for i:=1 to 5 do
If I mod 2=0 then
S1:= s1+a[i];
S2:=s2+a[i];
If s1>s2 then
write('da');else
write('net')
read;
end.