Информатика (9 класс, написание программки).4 ЗАДАНИЕ (НА ФОТО) В ПАСКАЛЕ.Напишите программку

4.1
var
a:array [1..31] of integer;
i:integer;
begin
for i:= 1 to 31 do
a[i]:= Random(0,10);
writeln(a);
write('Осадков не было:');
for i:=1 to 31 do
if a[i]=0 then
write(i:3)
end.

4.2
var
a:array [1..20] of integer;
i,k,k1,k2:integer;
begin
for i:= 1 to 20 do
a[i]:= Random(0,10);
writeln(a);
write('Введите число k: ');
read (k);
for i:=1 to 20 do
if a[i] mod k = 0 then k1:= k1+1;
for i:=1 to 19 do
if a[i] lt;gt; a[20] then k2:= k2+1;
writeln('Количество частей, кратных ',k,'(k) одинаково ',k1);
writeln('Количество частей, хороших от заключительного (',a[20],') одинаково ',k2)
end.

4.3
var
a:array [1..10] of integer;
i,k,j:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(-100,100);
writeln(a);
for i:=1 to 9 do
if a[i+1]lt;a[i] then
begin
k:= a[i];
a[i]:=a[i+1];
a[i+1]:=k
end;
writeln(a)
end.

Самым заключительным элементом массива будет его наибольший элемент.