type 
mas=array[1..10] of integer;
var
p1:integer;
p2:integer;
a:mas;
i:integer;
stk:string;
k:integer;
err:integer;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(71)-40;
end;
write('Ââåäèòå ÷èñëî k ');
repeat
begin
write('-> ');
readln(stk);
Val(stk,k,err);
if err<>0 then
begin
writeln('Çíà÷åíèå íå âåðíî!');
end;
end;
until err=0;
for i:=1 to 10 do
begin
if (a[i]<10) and (a[i]>-10) then
begin
a[i]:=0;
end;
p1:=abs(a[i] div 10);
p2:=abs(a[i] mod 10);
if p1=p2 then
begin
a[i]:=0;
end;
if ((a[i] mod 10)=7) then
begin
if k<0 then
begin
a[i]:=-((abs(k)*100)+a[i]);
end;
if k>=0 then
begin
a[i]:=(k*100)+a[i];
end;
end;
end;

for i:=1 to 10 do
begin
writeln('a[',i,']=',a[i]);
end;
end.