Программа

Program Pilshikov_5_37 (input,output);
{ Дано 80 вещественных чисел.
  Найти порядковый номер числа,
  наиболее близкого к заданному }
Const Quantity=10;
Var FixedPoint:integer;
    CurrentPoint:real;
    CurrentPointNumber:integer;
    minDpoint:real;
    NumberOfminDpoint:integer;
BEGIN
  Write('Задайте целое число ');
  Readln(FixedPoint);
  Write('Введите вещественное число ');
  Readln(CurrentPoint);
  minDpoint:=abs(CurrentPoint-FixedPoint);
  NumberOFminDpoint:=1;
  for CurrentPointNumber:=2 to Quantity do
    Begin
      Write('Введите вещественное число ');
      Readln(CurrentPoint);
      if (abs(CurrentPoint-FixedPoint)<minDpoint)
        then begin
               minDpoint:=abs(CurrentPoint-FixedPoint);
               NumberOFminDpoint:=CurrentPointNumber
             end
    End;
  Writeln('Номер ближайшего ',NumberOfminDpoint)
END.