ИЯ Ирина Якунина Помогите составить простейшую программу в Paskal (Borland). Ввести пять чисел и найти сумму четных.
СК Сергей Кондратьев var i, n, s: integer; begin write('enter numbers: '); for i := 1 to 5 do begin read(n); if not odd(n) then inc(s, n); end; writeln('sum of evens: ', s); end.