Пользователь вводит два числа . посчитайте частное этих двух чисел . (тема алгоритмы , надо составить схему )

Program cikli; unit math; var  i,n,s,p: integer;   a: array[1..20]of integer; begin  writeln('исходный массив: ');   for i: =1 to 20 do begin  a[i]: =randomrange(1,20);   writeln(' элемент ',i,' =  ',a[i]);   end;   writeln('сумму и произведения скольки первых чисел вы хотите посчитать? ');   readln(n);   s: =0; p: =1; //цикл с параметром  for i: =1 to n do begin  s: =s+a[i];   p: =p*a[i];   end; writeln('цикл с параметром'); writeln('сумма первых ',n,' чисел = ',s); writeln('произведения первых ',n,'чисел = ',p);   //цикл с предусловиемi: =1; p: =1; s: =0; while i< > n do begin  s: =s+a[i];   p: =p*a[i];   i: =i+1; end; writeln('цикл с предусловием'); writeln('сумма первых ',n,' чисел = ',s); writeln('произведения первых ',n,'чисел = ',p);   //цикл с постусловиемi: =0; s: =0; p: =1; repeat  i: =i+1;   s: =s+a[i];   p: =p*a[i]; until i=n; writeln('цикл с постусловием'); writeln('сумма первых ',n,' чисел = ',s); writeln('произведения первых ',n,'чисел = ',p); end.

1) var a: array [1..10] of integer;           i,sum: integer; begin   randomize;   sum: =0;   for i: =1 to 10 do       begin           a[i]: =random(100)-50;             write (a[i],' ');           if a[i] < 0 then sum: =sum+a[i];             end;   writeln;   writeln ('summa: ',sum);   readln; end. 2) var a: array [1..10] of integer;           i,max,index: integer; begin   for i: =1 to 10 do       begin             write ('a[',i,'] = ');               readln (a[i]);         end;   max: =a[1];   index: =1;   for i: =2 to 10 do       if a[i] > max then           begin               max: =a[i];               index: =i;             end;   writeln ('max: ',max,'.index: ',index);   readln; end. 3) var a: array [1..10] of integer;           max,min,i,temp: integer; begin   randomize;   for i: =1 to 10 do       begin             a[i]: =random(50);             write (a[i],' ');         end;   writeln;   max: =1;   min: =1;   for i: =2 to 10 do       if a[i] > a[max] then max: =i else           if a[i] < min then min: =i;   writeln ('max: ',a[max]);   writeln ('min: ',a[min]);   temp: =a[min];   a[min]: =a[max];   a[max]: =temp;   for i: =1 to 10 do write (a[i],' '); end.