Дано n чисел.Написать программу,которая подсчитывает их сумму.(PascalABC)

wde не работает, так что не проверял..var n,x,s,i:integer;begin   readln(n); // считываем n   for i:= 1 to n do begin      readln(x); // читаем одно из n чисел      s:=s+x; // добавляем к сумме   end;   writeln(s);end.