Program z1;
var a,i,sum:integer;
Begin
sum:=0;
for i:=1 to 5 do
begin;
read(a);
if (a<0) and (a mod 5=0) then
sum:=sum+a;
end;
writeln(sum);
End.
Program z2;
var a,p,i:integer;
Begin
p:=1;
for i:= 1 to 5 do
begin;
read(a);
if (a mod 10=2) or (a mod 10=4) then
p:=p*a;
end;
writeln(p);
End.
48*1000=48000 Гц
48000*16*1*2=1536000 битов = 192000
байт = 187,5 кб
X=28
y=(28 mod 11) +3 ; y=10
x=(10 div 7)+3 ; x=4
c=10+4=14
Const
n = 10;
var
a: array[1..n] of integer;
j, s: integer;
begin
s := 0;
for j := 1 to n do
begin
read(a[j]);
if a[j] > 5 then inc(s, a[j]);
end;
writeln(s);
readln;
<span>end.</span>