Program w7_116;
uses crt;
const n=10;
var x:array[1..n] of integer;
max,i,k,t:integer;
BEGIN
randomize;
writeln('vvedite k,t');
readln(k,t);
for i:=1 to n do begin
x[i]:=random(20)-5;
write(x[i]:5);
end;
writeln;
max:=x[1];
for i:=2 to n do
if x[i]>max then begin
max:=x[i];
x[i+1]:=k;
x[i-1]:=t;
end;
for i:=1 to n do
writeln(x[i]);
writeln;
ENd.