.Напишите программу, которая принимает с клавиатуры 15 целых чисел и выводит на экран, сколько из них были четными и сколько нечетными.

Спасибочки тебе большое)

Pascal:program z1;var i, k, n, ch:integer;beginn:=0;ch:=0;for i:=1 to 15 dobeginwriteln('Input number:');readln(k);if(k mod 2=0) thench:=ch+1elsen:=n+1;end;writeln('Нечетных было ', n);writeln('Четных было ', ch);end.