РЕШИТЬ Напишите программу, которая считывает последовательность из 10 целых чисел и определяет является ли каждое из них четным или нет.

Формат входных данных

На вход программе подаются 10 целых чисел, каждое на отдельной строке.

Формат выходных данных

Программа должна вывести строку «YES», если все числа четные и «NO» в ином случае.

Sample Input 1:

2

4

6

8

10

12

14

16

18

20

Sample Output 1:

YES

Sample Input 2:

1

2

3

4

5

6

7

8

9

10

Sample Output 2:

NO

РЕШИТЕ ОЧЕНЬ НАДО ОЧЕНЬ А ТО МНЕ КАПЕЦ ОТ РОДОКОВ

+2): 3+4): 5+6): 7+8): 9=1

program zadacha;

uses crt;

var otvet: real;

begin

otvet: = ((4785**45*45))/50;

writeln(otvet: 5: 5);

readkey;

end.

290*39*67=757770 - всего символов

для кодирования  757770 символов потребуется   757770 байтов

757770байт < 1,44    мбайт

да, книга поместиться на дискетку

на каком языке нужна программа?   пример на paskal:   program zadacha;   var massiv: array [1..15] of integer; i: byte; massiv2: array [1..15] of real;   begin  randomize;   write('isxodnij massiv: ');   for i: =1 to 15 do  begin  massiv: =random(41)-20;   write(massiv,' ');   end;   writeln;   writeln('massiv posle preobrazovanij: ');   for i: =1 to 15 do  begin  if massiv=0 then massiv2: =massiv  else  if massiv mod 5 = 0 then massiv2: =massiv*2  else begin  massiv2: =massiv;   massiv2: =massiv2/2;   end;   write(massiv2: 0: 1,' ');   end;   readln;   end.