Ответ:
var a:array[1..100] of integer;
i,s,n:integer;
begin
s:=0;
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i] mod 6=0) then
s := s + a[i];
writeln(s);
end.
Begin ... end - скобки для многострочного оператора. Используется
например для операторов цикла, условного оператора, функций и
обязательны для общего текста программы
write - вывод данных на консоль или в файл
read - считывание данных из консоли или файла
var - открывает раздел обьявления переменных, сокращение от variables
#include <iostream>
#include <cmath>
#include <iomanip>
using namespace std;
int main() {
double a = 2.1;
double b = 5.3;
double c = 1.4;
double x;
cin >> x;
double y = (sqrt(exp(2 * x + b)) - 1.7 * cos(c * x)) / (log(x * x + a)) + x * x * x;
cout << "y=" << y;
cout << setprecision(2) << fixed;
cout << "\nx=" << x << " y=" << y;
return 0;
}