Помогите с информатикой пожалуйста (Написать короткую програмку в FreePascal)

найти сумму чётных элементов массива.

использовать в этой задаче?а) M mod 2<>0; б) M/2<>0; в) M div 2<>0; г) M='нечетное'.3. Входит ли число А в диапазон значений [4;10)? Какое составное условие нужно поставить в этой задаче?а) (A>=4) and (A<10); б) (A<=4) and (A>10); в) (A>=4) or (A<=10); г) not (A>=4) and not (A<10).4. Какое условие следует использовать для вычисления Y по формулам: Y=(X+1)2, при X≥1; Y=cosX, при X<1?а) if x>=1 then y:=cos(x) else y:=sqr(x+1); б) if x<1then y:=cos(x) else y:=sqr(x+1); в) if x>=1 then y:=sqr(x+1) else y:=cos(x); г) if x>1 then y:=cos(x) else y:=sqr(x+1);5. Что будет выведено на экран после выполнения фрагмента программы?begina:=1; b:=1;if (a>=1) and (b>=2) then n:=a+b else n:=a-b;writeln(n);end.а) 3; б) -1; в) 1; г) 0.6. Есть ли в следующих текстах пустые операторы? (В ответе перечислите буквы через запятую)а) begin a:=true; b:=b end б) if a div b=0 then else b:=0 в) begin x:=-2; y:=-5; end г) begin if x=0 then x:=2; y:=xд) if x>0 then x:=3 else; y:=x-27. Найдите ошибки в следующих операторах и запишите исправленные операторы.а) begin if y2>1 then y:=cosy; y:=; end;б) if -2<y<5 then if y>=1 then y=y3 else y:=y2else y:=sqr(y)8. Напишите программу, которая по номеру дня недели показывает название этого дня недели.

км,но меньше 75 км;20 монет,если расстояние >= 75 км.Составить таблицу,по которой можно определить цену билета до 10 станций.Построить диаграмму,показывающую соотношение цен всех билетов.

Между девятью планетами Солнечной системы
введено космическое сообщение. Ракеты летают по следующим маршрутам:
Земля—Меркурий, Плутон—Венера, Земля—Плутон, Плутон—Меркурий, Меркурий—Венера,
Уран—Нептун, Нептун—Сатурн, Сатурн—Юпитер, Юпитер—Марс и Марс—Уран. Можно ли
добраться с Земли до Урана?

Помогите с информатикой пожалуйста!
8 и 9 номер