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

Цикл с параметром:

Var i,A,c,n:integer;
Begin
c:=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;
Begin
c:=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.