Циклы. Определите разницу между максимальным и минимальным числами - VB

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

Дано целое n>0, за которым следует n действительных чисел. Определите разницу между максимальным и минимальным среди них.

Решение задачи: «Циклы. Определите разницу между максимальным и минимальным числами»

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

                            Option Explicit
'uses Crt;
Dim n%, c% 'Var'   n,c:integer;
Dim a# '   a:real;
Dim max#, min# '   max,min:real;
 
Sub Сергей_Иванов() 'begin
n = InputBox("Введите количество элементов последовательности чисел - ") '     Write('Введите количество элементов последовательности чисел - ');'     readln(n);
a = InputBox("Введите 1-й элемент последовательности - ") '     write('Введите 1-й элемент последовательности - ');'     readln(a);
max = a '     max:=a;
min = a '     min:=a;
c = 1 '     c:=1;
While c < n '     while c<n do'       begin
  c = c + 1 '         c:=c+1;
  a = InputBox("Введите " & c & "-й элемент последовательности - ") '         write('Введите ',c,'-й элемент последовательности - ');  '         readln(a);
  If a > max Then max = a '         if a>max'              then max:=a;
  If min > a Then min = a         '         if min>a  '              then min:=a;
Wend '       end;
MsgBox "Разница наибольшего и наименьшего чисел равна " & max - min '     Writeln('Разница наибольшего и наименьшего чисел равна ',max-min);
End Sub 'end.
                        