Напишите программу в паскаль и 3 задачу

import random

A  = []

for i in range(15):

   A.append(random.randrange(-50,50))

print(A)

pr = 1

for i in range(len(A)):

   pr*= A[i]

print("Произведение всех элементов равно: ", pr)

ko = 0

for i in range(len(A)):

   if A[i] < 0:

       ko += 1

print("Количество отрицательных элементов: ", ko)

sn = 0

nch = 0

for i in range(15):

   if A[i] % 2 != 0:

       sn+= A[i]

       nch += 1

if nch == 0:

   print("NO")

else:

   sr = sn / nch

   print("Среднее арифметическое:", end=" ")

   print(float('{:.2f}'.format(sr)))

print("Положительные, которые оканчиваются на 8:", end= " ")

k8 = 0

k93 = 0

for i in range(len(A)):

   if A[i] > 0 and A[i] % 10 == 8:

       k8 += 1

       print(A[i],end=" ")

if k8 == 0:

   print("NO",sep=" ")

print("Числа, которые делятся на 3, но не на 9:")

for i in range(len(A)):

   if A[i] % 3 == 0 and A[i] % 9 != 0 and A[i] > 0:

       k93+=1

       print(A[i],end=" ")

if k93 == 0:

   print("NO")

Var s:string;
m,mn,m1,m2:set of char;
i,k,l:integer;
begin
writeln('Введите последовательность русских слов:');
readln(s);
m:=['Б','б','В','в','Г','г','Д','д','Ж','ж','З','з','Й','й','Л','л','М','м','Н','н','Р','р'];
k:=0;
for i:=1 to length(s) do
 if not (s[i] in ['А'..'Я','а'..'я',' ','.']) then k:=k+1;
if k>0 then writeln('Ошибка ввода')
else begin
 while pos('  ',s)>0 do delete(s,pos('  ',s),1);
 if s[length(s)]='.' then s[length(s)]:=' ';
 k:=0; mn:=[]; m1:=m; m2:=m;
 for i:=1 to length(s) do
  begin
  mn:=mn+[s[i]];
  if s[i]=' ' then
   begin
   k:=k+1;
   if k mod 2=1 then m1:=m1*mn else m2:=m2*mn;
   mn:=[];
   end;
  end;
 mn:=m1-m2;
 print(mn);
     end;
end.

Пример:
Введите последовательность русских слов:
напечатать в   алфавитном порядке    звонкие буквы.
{н}