Это только ответ на 1 вопрос.
var a, i, n, b, sum:integer;
begin
sum:=0;
readln(n);
for i:=1 to n do
begin
readln(a);
if (a>9) and (a mod 2=0) then
sum:=sum+a;
writeln(sum);
end;
end.
Пояснение ребуса:
При "н" "т" катЕР
Ответ: принтер.
Хотелось бы узнать название языка.
<span>=А1+А2 (арифмитическое сложение)</span>
Cначала спускаемся на а(6) потом на. б(6) потом на б(8)