Исправить ошщибке в коде 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.

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку