Program nearone;
var R,i,x,N:integer; a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(50);
writeln(a[i]);
end;
write('Число R ->');
readln(R);
x:=abs(a[1]-R);
N:=1;
for i:=2 to 10 do
if x > abs(a[i]-R) then
begin
x:=abs(a[i]-R);
N:=i;
end;
writeln('Ближайшее число - ',a[N]);
end.