var a,a1,a2,sum,n,i:integer;
begin
readln (n);
for i:=1 to n do
begin
readln (a);
a1:=a div 10;
a2:=a mod 10;
if (a1=1) or (a2=1) then sum:=sum+a;
end;
writeln (sum);
end.
Var
s:integer;
x:real;
begin
repeat
begin
write('Сколько всего журавликов сделали: ');
readln(s);
if s mod 6<>0 then writeln('Они не могли сделать столько, противоречит условию')
end
until s mod 6=0;
x:=s/6;
writeln('Петя и Сережа сделали каждый по ',x);
writeln('Катя сделала ',4*x)
<span>end.</span>
Var x,y: real;
begin
write(' x = '); readln(x);
if x<0 then y:=sqr(x)*x+2
else y:=sqrt(x);
writeln(' y = ',y:6:4);
end.
<span>
</span>
73+(37-12)*15=73+ 25*15=73+375=448