Question

ДАЮ 50БАЛЛОВ!ЗАДАЧА В DOSBox помогите пожалуйста!!!

Answer 1

var    i, n, k, s: integer;
begin    writeln('n=');    readln(n);         s := 0;    for i := 1 to n do     begin        readln(k);        if (k < 40) and (k mod 2 = 1) then s := s + k;    end;        writeln('s=', s);end.