Составьте по шаблону блок – схему решения 5 у= a(а-9)

Вводим   переменную а, у (это   у нас в овале) дальше   условие  если а > 9 то    (это ромб) нет пишете нет   решения (параллелограмм) да записываете  пример    (прямоугольник)вывод у (параллелограмм)                                      

Var   x, x1: integer;   breakloop, nondescending: boolean; begin   writeln('вводите числовую последовательность');   read(x);   read(x1);   nondescending : = (x1 > = x);   repeat       read(x);       if x < > 0 then           if nondescending then breakloop : = (x < x1)           else breakloop : = (x > x1);       x1 : = x   until breakloop or (x = 0);   if breakloop then writeln(#13#10, 'последовательность ')   else   if nondescending then writeln(#13#10, 'последовательность неубывающая')   else writeln(#13#10, 'последовательность невозрастающая') end. тестовое решение вводите числовую последовательность 7 12 12 18 34 0 последовательность неубывающая

Var   a, c: boolean;   b, b1: integer; begin   readln(b);   readln(b1);   if (b > b1) then     a : = true   else     if (b1 > b) then       a : = false;   while (true) do   begin     readln(b1);     if (0 in [b, b1]) then       break;     if a then     begin       if (b < b1) then         c : = true;     end     else       if (b > b1) then         c : = true;     b : = b1;   end;   if c then     writeln('случайная')   else     if (a) then       writeln('невозрастающая')     else       writeln('неубывающая'); end. само собой, должно быть минимум 2 числа в последовательности: )