как решить это задание? помогите плиз

максимальное значение заменить минимальным а минимальное максимальным...

выдает ошибку там где random(30);
проверьте пожалуйста...

Program A1;
var a:array[1..30] of integer;
amax,amin,i,k1,n,s:integer;
begin
writeln('введите n элементов массива');
readln (n);
for i:=1 to n do
random(30);
writeln('введённый массив имеет вид');
write (a[i], ' ');
writeln;
amax:=a[1]; k1:=1;
for i:=2 to n do
if a[i]>amax then
amax:=a[i];
amin:=a[1];
for i:=2 to n do
if a[i]<amin then
amin:=a[i];
writeln('полученный массив имеет вид');
amax:=amin;
amin:=amax;
for i:=1 to n do
writeln(a[i],' ');
end.

Для вычисления в ячейкеE7 количества студентов, сдавших сессию
только на четыре и пять, следует выполнить одну из следующих
последовательностей действий:
1) в ячейкуE2 вписать формулу ЕСЛИ(И(И(B2>3; C2>3); D2>3); 1;0);
скопировать ее в диапазонE3:E6;
в ячейкуE7 вписать формулу СУММЕСЛИ(B2:B6;">3";E2:E6)
2) в ячейкуE2 вписать формулу ЕСЛИ(И(B2>3; C2>3); 1;0);
скопировать ее в диапазонE3:E6;
в ячейкуE7 вписать формулу СУММ(E2:E6)
3) в ячейкуE7 вписать формулу СУММЕСЛИ(B2:B6;">3";E2:E6)
4) в ячейкуE2 вписать формулу ЕСЛИ(И(И(B2>3; C2>3); D2>3); 0; 1);
скопировать ее в диапазонE3:E6;
в ячейкуE7 вписать формулу СУММ(E2:E6)
5) в ячейкуE2 вписать формулу ЕСЛИ(И(И(B2>3; C2>3); D2>3); 1;0);
скопировать ее в диапазонE3:E6;
в ячейкуE7 вписать формулу СУММ(E2:E6)

основание.

((X < 5)→(X < 3)) Ù ((X < 2)→(X < 1))

1) 1 2) 2 3) 3 4) 4

2)Для какого имени истинно высказывание:

¬ (Первая буква имени гласная → Четвертая буква имени согласная)?

1) ЕЛЕНА 2) ВАДИМ 3) АНТОН 4) ФЕДОР