Напишите программу которая вычисляет минимальное и максимальное число среди чисел вводимых с клавиатуры.

Вторая строчка должна быть var n,max,i,min,now:longint;

uses crt;var max,i,min,now:longint; begin clrscr; writeln (' vvedite kol-vo chisel ');readln (n);  write ('vvedite 1 chislo: ');                         readln(now);max:=now;min:=now;for i:=2 to n do begin write ('vvedite ',i, ' chislo: ');                         readln(now);if now>max then max:=now;if now<min then min:=now;              end; writeln ('minimum raven: ',min); write ('maximum reven: ',max);readln; end.