Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве…

Program Task; Const N=5; Var a: Array [1… N] of Integer; i, k: Integer; BeginWriteLn ('Введите ', N, ' целых чисел через пробел'); For i: =1 To N DoRead (a[i]); For i: =1 To N DoIf a[i] Mod 2=0 ThenBeginWrite (a[i], '); k: =k+1; End; WriteLn; WriteLn ('Всего: ', k); ReadLn; End.