Составьте программу по которой компьютер десять раз запросит ввод целых и в результате сообщит сколько среди введённых чисел чётных и сколько нечётных.
желательно через For и While. Паскаль

Огромное Вам спасибо

Цикл с параметром:Var i,A,c,n:integer;Beginc:=0;n:=0;For i:= 1 to 10 do    Begin    Read(A);    if A mod 2 = 0 then c:=c+1    else n:=n+1    End;WriteLn('Количество чётных: ',c);WriteLn('Количество нечётных: ',n);End.Цикл с предусловием:Var i,A,c,n:integer;Beginc:=0;n:=0;i:=1;While i<=10 do   Begin   Read(A);   if A mod 2 = 0 then c:=c+1   else n:=n+1;   i:=i+1   End;WriteLn('Количество чётных: ',c);WriteLn('Количество нечётных: ',n);End.