ОЧЕНЬ сделать при функции и 2)процедуры В одомерном массиве случайных чисел С [1...10] вычислить произведение четных элементов, кратных 3.

var n,k:integer;
      s: string;
begin
  writteln('введите n,k');
  readln(n,k);
  str(n,s);{преобразуем число n в строку s}
  witeln(s[length(s)-k+1]); {length(s) -длина строки}
end.

{2 задача}
cons nmax=20;
var a:array [1..nmax] of integer;
    min1,min2,i,k1,k2,N:integer;
begin
  writeln('введите кол-во элементов массива');
  readln(N);
   writeln('введите элементы массива'); 
   for i:=1 to N do   read(a[i]);
   min1:=a[1]; k1:=1; {k1 -индекс первого минимального элемента}
   for i:=2 to n do 
   if min1>a[i] then
   begin 
     min1:=a[i];
     k1:=i
  end;
{исключаем  найденный минимальный элемент из массива- можно и по другому}
    for i:=k1+1 to N do 
     a[i-1]:=a[i];
    k1:=n-1;
  end; 
   min2:=a[1]; k2:=1; {k1 -индекс первого минимального элемента}
   for i:=2 to n do 
   if min2>a[i] then 
   begin 
     min2:=a[i];
     k2:=i
  end;
writeln(min1:5,min2:5)
{если нужно было сохранить массив в начале программы надо ввести дополнительный массив }

end.

Program Ves;
Var a1,a2,a3,a4,t1,t2,t3,p,d,vp,b: Integer;
begin 
writeln ('программа вычисляет норму для данного ученика');
writeln ('введи массу учебника 1');readln (a1);
writeln ('введи массу учебника 2');readln (a2);
writeln ('введи массу учебника 3');readln (a3);
writeln ('введи массу тетради 1');readln (t1);
writeln ('введи массу тетради 2');readln (t2);
writeln ('введи массу тетради 3');readln (t3);
writeln ('введи массу пенала');readln (p);
writeln ('введи массу дневника');readln (d);
writeln ('введи массу портфеля');readln(vp);
b:=a1+a2+a3+a4+t1+t2+t3+p+d+vp;writeln ('общая масса портфеля= ' b);
if (b<=5) then writeln ('норма') else writeln ('ненорма');
readln;
end.