Программа

Program Pilshikov_5_9 (input,output);
{ Дано 100 вещественных чисел.
  Вычислить разность между
  максимальным и минимальным из них. }
Var
  i:integer;
  x,max,min:real;
BEGIN
  write('Введите число ');    { Ввод первых двух чисел }
  readln(max);
  write('Введите число ');
  readln(min);
  if min>max then
               begin          { Сортировка первых двух чисел }
                 x:=max;
                 max:=min;
                 min:=x
               end;
  for i:=3 to 100 do
                   begin
                     write('Введите число ');  { Ввод остальных чисел }
                     readln(x);
                     if x>max then max:=x;  { Если вновь введенное число
                                              больше наибольшего
                                              из предыдущих, то запись нового
                                              значения в ячейку "max" }
                     if x<min then min:=x   { Если вновь введенное число
                                              меньше наименьшего
                                              из предыдущих, то запись нового
                                              значения в ячейку "min" }
                   end;
  writeln(max-min)
END.