Контрольная работа по информатике 7 класс, решите

пример1. дано число х определить, является ли оно четным
program name ;
uses crt;
var
x: integer;
begin
clrscr;
write ('x'); read(x)
if x mod 2=0 then writekn ('да') else writeln ('нет'
readkey;
end.

формулы для нахождения суммы и кол-ва: s=0, k=0, p= 1, s=s+a, k=k+1, p=p*a

пример2. дано три числа. найти сумму чистел кратных 3
programe name
uses crt;
var
a,b,c, s; integer;
begin
clrsccr;
write ('b='): read (b)
write ('c='); read(c)
write ('a=') read(a)
s: =0
if a mod 3=0 then s: =s+a
if a mod 3=0 then s: =s+b
if a mod 3=0 then s: =s+s
writeln('s=', s)
readkey;
end

:

1 дано три числа найти
а)произведение чисел меньше 15ти
б)кол-во чисел кратных 7ми
в) сумму чисел оканчивающихся на 9
2. написать программу нахождения площади трапеции
3. определить является ли число кратным 5ти