program FindClosestElement;
const
N = 5;
var
R, closest, diff, minDiff: Real;
arr: array[1..N] of Real;
i: Integer;
begin
minDiff := MaxInt;
Write('Enter a real number R: ');
Readln(R);
Write('Enter ', N, ' real numbers to fill the array: ');
for i := 1 to N do
begin
Readln(arr[i]);
diff := Abs(arr[i] - R);
if diff < minDiff then
begin
minDiff := diff;
closest := arr[i];
end;
end;
Writeln('The element closest to ', R, ' is: ', closest);
end.

Программа принимает вещественное число R и массив из N элементов, и находит элемент массива, который наиболее близок к числу R.