Программа нахождения четных чисел из 10 любых на языке pascal

Var mas: array[1..10]of integer; i: integer; begin      write('введите 10чисел:   ');       for i: =1 to 10   do   readln(mas[i]);         write('четными являются: ');       for i: =1 to 10 do     if (mas[i] mod 2 = 0) then write(mas[i],' '); end.

#include < iostream> using namespace std; void bin(int n); int main() {       int n;       cout< < "введи число в десятичной системе счисления\n";       cin> > n;       bin(n);       system("pause");       return 0; } void bin(int n) {         int binn[15], ;         for(int i=14; i> =0;         {                         binn[i]=n % 2;                         n=n/2;                         }                 for(int i=0; i< =14; i++)         {                         cout< < binn[i];                         }           cout< < "\n";             }                       

Var i, k: integer;               n: array[1..10] of real;           begin            for i: =1 to 10 do readln(n[i]);           k: =1;             for i: =1 to 9 do              if k< > 0 then                        if n[i]< n[i+1] then k: =k+1                                                        else k: =0;               if k< > 0 then writeln('ученики выстроены по росту')                      else writeln('ученики выстроены не  по росту');       end.