Cd-rom это а) устройство чтении информации с компакт-диска б) устройство для долговременного хранения информации в) устройство для записи информации на магнитный диск

CD-ROM это устройство чтения информации с компакт-диска 

Const
  n = 3;

var
  m: array[1..n] of integer;
  i, mn, mx: integer;

begin
  Write('Введите через пробел три целых числа: ');
  i := 1;
  repeat
    Read(m[i]);
    i := i + 1
  until i > n;
  mn := m[1];
  mx := mn;
  i := 2;
  repeat
    if mx < m[i] then mx := m[i]
    else
    if mn > m[i] then mn := m[i];
    i := i + 1
  until i > n;
  Writeln('Разность наибольшего с наименьшим равна ', mx - mn)
end.

Тестовое решение:

Введите через пробел три целых числа: 7 9 3
Разность наибольшего с наименьшим равна 6

Объяснение:

1) program abc;

var x,y:real;

begin

readln(x,y);

if (x>0) then begin // проверка по x

 if (y>0) then  

  writeln('1th'); // попадает в первую

 if (y<0) then

   writeln('4th'); // проверка в четвёртую

end

else begin

 if (y>0) then  

  writeln('2nd'); // попадает во вторую

 if (y<0) then

  writeln('3th'); // попадает в третью

end;

end.

2)

program abc;

var A:array [1..4] of real; // ввод массива из четырёх чисел

i,max,min:shortint; // i - цикл, max - индекс максимального значения, min - минимального

s:real; // сумма

begin

readln(a[1]); // ввод первого значения

max:=1;

min:=1; // считаем что первое значение и минимум и максимум

for i:=2 to 4 do

 begin

  readln(A[i]); // ввод массива

  if A[i]>a[max] then // Если данный элемент больше максимального

   max:=i; // То записываем индекс этого элемента

 if A[i]<A[min] then // аналогично с минимумом

 min:=i;

 end;

s:=A[max]+a[min]; // суммируем и выводим

write(s);

 end.