C клавиотуры вводится натуральное число, которое определяет кол-во вводимых чисел с клавиотуры целых значений. Пользователь вводит указанное кол-во целых значений.А программа выводит самое большое и самое маленькое значение из вводмимых. Напишите программу на Pascal!!!

Program n1;var a,min,max,i,n: integer;beginreadln(n);readln(a);min:=a;max:=a;for i:=2 to n dobeginreadln(a);if a>max then max:=a;if a<min then min:=a;end;writeln('min=',min);write('max=',max);end.