Для заданного множества чисел найти разность между максимальным и минимальным числами - Pascal

Формулировка задачи:

Ввести 8 целых чисел. Найти разницу между наибольшим и наименьшим из них.

Решение задачи: «Для заданного множества чисел найти разность между максимальным и минимальным числами»

Листинг программы

var i, A, minA, maxA : integer;
begin
  for i:=1 to 8 do begin
    Write('введите ',i,' число: '); ReadLn(A);
    if i=1 then begin minA := A;  maxA := A end
    else begin
       if A>maxA then maxA := A;
       if A<minA then minA := A;
    end;
end;
WriteLn('разность = ', maxA- minA);
Readln
end.

Объяснение кода листинга программы

Создаются переменные i, A, minA и maxA типа integer.
В цикле for i от 1 до 8 выполняется следующий код:
- Выводится сообщение для ввода числа.
- Число считывается с консоли и сохраняется в переменной A.
- Если i равно 1, то minA устанавливается равным A, а maxA также устанавливается равным A.
- В противном случае, если число A больше maxA, maxA устанавливается равным A.
- В противном случае, если число A меньше minA, minA устанавливается равным A.
По завершении цикла выводится сообщение с разностью между maxA и minA.
Выполняется чтение строки с помощью функции ReadLn.
Программа завершается.