Исправить ошщибке в коде pascal

Var

a:array[1..2000] of integer;

b, c,d:integer;

begin

readln(s);

sum:=0;

for i:=1 to s do begin

read(ar[i]);

sim:=sum+ar[i];

end;

writeln(sum);

end.

siri9    2   18.05.2020 20:45    0