#Python 3.5.2
n, a, r, i = int(input()), input().split(), input(), 0
while (i<n) and (a[i]>=r): i+=1;
a.insert(i, r)
for i in range(n+1): print(a[i], end=' ')
//FPC 2.6.4
var
n, r, i, j: byte;
a: array[1..100] of byte;
begin
readln (n);
for i:=1 to n do read(a[i]);
readln (r);
j:=1;
while (j<=n) and (a[j]>=r) do inc(j);
for i:=1 to j-1 do write (a[i], ' ');
write(r, ' ');
for i:=j to n do write (a[i], ' ');
end.
В интернете посмотри там всё написано
Var
c : integer;
k : char;
begin
c := 0;
while not eoln do
begin
read (k);
if k = ' ' then
begin
if c > 10 then
begin
write ('YES');
halt;
end;
c := 0;
end
else
c := c + 1;
end;
if c > 10 then write ('YES') else write ('NO');
end. <span>
</span>
var i,r,a:integer;
begin cls;
r:=0;
For i:=1 to 4 do
begin
read(a);
if a mod 2 = 0 then inc(r);
end;
writeln('chetnyh = ',r);
readln;
end.