01101110 это искусственный язык, т.к двоичная система счисления, а остальное-это английский язык
<span>cat.jpeg
</span><span>foto.bmp
</span><span>dog.gif
</span><span>song.eps
</span><span>war.wmf</span>
//Pascal ABC.NET v3.0 сборка 1111
var
ar:array of integer;
n:integer;
begin
n:=0;
setlength(ar,n+1);
readln(ar[n]);
while ar[n]<>0 do
begin
inc(n);
setlength(ar,n+1);
readln(ar[n]);
end;
sort(ar);
ar.Print(' ');
<span>end.</span>
1.
n = int(input())
if n == 0:
print(0)
else:
a, b = 0, 1
for i in range(2, n + 1):
a, b = b, a + b
print(b)
2.
d = []
k = []
for i in range(10):
d.append(int(input()))
for i in range(len(d)):
if d[i] % 2 == 0:
if d[i] % 3 != 0:
k.append(d[i])
print(min(k))
var
i:integer;
begin
i:=10;
while i<21 do
begin
writeln(i*i*i, ', ');
i:=i+1;
end;
end.