Створити блок-схему алгоритму розв’язання неповного квадратного рівняння, яке має вигляд: аx^2+bх=0

  const n=5; var i,j,s,p: integer;     a: array [1..n,1..n] of integer;     b,c: array [1..n] of integer; begin  for i: =1 to n do  for j: =1 to n do  a[i,j]: =random(100); { вывод на экран }     for i: =1 to n do  begin    for j: =1 to n do    write(a[i,j]: 4);     writeln;   end;   { цикл по массиву }  for j: =1 to n do {цикл по колонке }  begin    s: =0;     p: =1;     for i: =1 to n do {цикл по строке}    if (a[i,j] mod 2 = 0) then    p: =p*a[i,j]    else s: =s+a[i,j];     if (p> 1) then c[j]: =p    else c[j]: =0;       if (s> 0) then b[j]: =s    else b[j]: =0;   end;       writeln('массив для четных элементов');   for i: =1 to n do write(c[i]: 10);     writeln;   writeln('массив для нечетных элементов');   for i: =1 to n do write(b[i]: 4);   end.                                                                                

1.var a: integer; {объявление переменных}           b: real; begin{начало   тела программы} write('введите два числа =>   '); {вывод сообщения пользователю} readln(a,b); {ввод данных пользователем} if (a> 5) then {сравнение первого введённого числа с 5} b: =b/2; {если а> 5 b приравниваем к b делённое на 2} writeln(b); {выводим b} end.{конец тела программы} 2.var a,b,c,d: integer; {объявление переменных} begin{начало тела программы} write('введите три числа  (через пробел) =>   '); {вывод информации пользователю} read(a,b,c); {ввод инф. пользователем} if (a> =0) then d: =d+1; {если а положительное число счётчик +1} if (b> =0) then d: =d+1; {тоже самое что с верху} if (c> =0) then d: =d+1; {тоже самое что с верху} writeln('количество положительных чисел  ',d); {вывод информации} end.{конец тела программы}