Pascal. Дано некоторое количество различных чисел

И где оно дано? Пускай оно вводится с клавиатуры, это количество program ab; var num,min: integer; begin num: =0; min: =-32767; repeat Read (num); if num0; Writeln ("Minimal: ",min); end.