После ввода N целых положительных чисел, программа вычисляет сумму и количество чисел кратных трем.
Решение:
program cycles_2; uses crt; var n, i, threeK, threesum, x: integer; begin clrscr; write(' Количество чисел > '); read(n); threeK:=0; threesum:=0; for i:=1 to n do begin write(i, ' число > '); read(x); if x mod 3=0 then begin threesum:=threesum+x; threeK:=threeK+1; end; end; writeln(' Сумма чисел кратных трем: ', threesum); write(' Количество чисел кратных трем: ', threeK); readkey; end.