Var
  sum, c : integer;
begin
  sum := 0;
  while not eoln do
  begin
    read (c);
    if (c mod 10 = 8) and (c mod 4 = 0) then sum := sum + c;
  end;
  write (sum);
end.

Program asd;
USES crt;
Const n=100;
VAR A:array[1..n] of integer;
i,s:integer;
BEGIN
s:=0;
For i:=1-1 to n do
 begin
 Write(i:4);
 If (i mod 4=0) and (I mod 10 in[8]) then
 begin
 S:=S+i;
 end;
 end;
 Writeln;
 Writeln(S);
END.
Вот так