Var
i, n, s, x: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
begin
readln(x);
if (x mod 10 = 8) and (x mod 6 = 0) then
s := s + x;
end;
writeln('S = ', s);
end.
Var x,y,a:real;
begin
readln(X,Y);
a:=power(1+1/sqr(x),x) - power(12*x,2*y);
writeln(a);
<span>end.</span>
Program evm;
var
a:integer;
begin
Writeln('Сколько вам лет? ');
readln(a);
if a<18 then writeln('Вы ребёнок');
if (a>18) and (a<35) then writeln('Вы молоды');
If (a>35) and (a<100) then writeln('Вы взрослый');
readln;
<span>end.</span>