cứu e vs aaaaaaaaaa gấp mọi người ơiiiiiiiiii

Uses Crt;
Var n,i,t,d,max: longint;
    a: array [1..10000] of longint;
begin
    clrscr;
    Read(n); max:= - maxlongint;
    d:= 0; t:= 0;
    For i:= 1 to n do
        begin
            Read(a[i]);
            t:= t+a[i];
            If (a[i] mod 10 = 5) or (a[i] mod 10 = 0) then d:= d+1;
            If a[i] > max then max:= a[i];
        end;
    For i:= 1 to n do Write(a[i],'; ');
    Writeln;
    Writeln(t);
    Writeln(d);
    Writeln(max);
end.