Viết chương trình tính tổng N số tự nhiên Làm ơn, help meeeeeeee Hứa sẽ vote 5 sao, ctlhn

uses crt;

var n,i,a:integer;

      s:longint;

begin

    clrscr;

    s:=0;

    readln(n);

    for i:=1 to n do

    begin

        readln(a);

        s:=s+a;

    end;

    write(s);

    readln;

end.