Программирование линейных и разветвляющихся процессов - Turbo Pascal

Формулировка задачи:

сделайте алгоритм к заданию плиз. то есть блок схему. очень буду признателен. и на 6 задании не хватает двух циклов при вводе и выводе в конце алгоритма.

Program fifi;
var a,b,c,z:real;
  begin
  write('Vvedite a=');
    readln(a);
  write('Vvedite b=');
   readln(b);
write('Vvedite c=');
   readln(c);
if (abs (a)<0.0001) or (abs (b)<0.0001) or (abs (c)<0.0001) then
   begin
   z:=a+b+c;
   write('summa chisel =', z:8:4);
end
else
   begin
   z:=a*b*c;
   write('proizvedenie chisel ', z:8:4);
end;
    readln;
   end.

Решение задачи: «Программирование линейных и разветвляющихся процессов»

Листинг программы

program random_znacheniya;
const n=7;
var a,b,min: integer;
    m:array[1..n, 1..n] of integer;
begin
writeln('Исходная матрица');
for a:=1 to n do
 begin
  for b:=1 to n do
   begin
    m[a,b]:=Random(1000);
    write(m[a,b]:4);
   end;
  writeln;
 end;
for a:=1 to n do
 begin
  min:=m[1,a];
  for b:=2 to n do
  if m[b,a]<min then min:=m[b,a];
  m[a,a]:=min;
 end;
writeln('Замена элементов главной диагонали минимальными элементами столбцов');
for a:=1 to n do
 begin
  for b:=1 to n do
  write(m[a,b]:4);
  writeln;
 end;
readln;
end.

Объяснение кода листинга программы

В программе объявлены переменные: n (количество элементов), a, b, min (переменные для работы с матрицей), m (массив для хранения значений).
Выводится сообщение «Исходная матрица».
Заполняется матрица случайными числами от 0 до 999.
Находится минимальный элемент в матрице и заменяет соответствующий элемент на главной диагонали.
Выводится сообщение «Замена элементов главной диагонали минимальными элементами столбцов».
Заполняются строки матрицы значениями из предыдущей строки, где замененный элемент был на максимальное значение.
Программа завершается, и пользователю предлагается ввести любые данные для продолжения работы программы.