Составить блок-схему алгоритма решения . даны два ненулевых числа. найти их сумму, разность, произведение и частное.

Var  a, b : array [1..20] of integer;   i : integer;   f : boolean; begin   randomize;   for i: = 1 to 20 do  begin    a[i]: = random(5);     b[i]: = random(5);   end;   f: = false;   for i: = 1 to 20 do    if a[i] = b[i] then    begin      f: = true;       writeln('номер: ',i,' значение: ',a[i]);     end;   if f = false then    writeln(' элементов нет! '); end.

  for (double i = 100; i < = 999; i++ ) // начинаем перебор всех трёхзначных чисел от 100 до 999            { double s = i % 17; // узнаём остаток числа от деления на 17        if (s == 0) console.writeline(i); // если остаток равен 0 тогда выводим это число            }                           console.readline();