В последовательности натуральных чисел посчитать сумму всех чисел,кратных 4 и оканчивающихся на 8. Числа от 0 до 100Использовать цикл.

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;BEGINs:=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.Вот так