Максимальное число из n колличества переменных

[Красильников Илья]

задача:найдите минимальное и максимальное число среди n кол-ва переменных.кол-во переменных нужно ввести с клавиатуры во время исполнения программы.значение каждой переменной тоже нужно ввести с клавиатуры.Помогите пожалуйста.Занимаюсь Паскалем 2 день.за ранее спасибо.

[Vanta11a]

Поиск творит чудеса

[New man]

Решение без массивов:

program MinMax;
var n,i:integer;
 min, max,k:real;
begin
   write('vvedite n   ');
    readln(n);
    readln(k);
    min:=k;max:=k;
    for i:= 2 to n do
       begin
          readln(k);
          if k<min then min:=k;
          if k>max then max:=k;
       end;
    writeln('minimum:  ', min:10:6);
    writeln('maximum:  ', max:10:6);
end.