Example

алг
нач
  | Решение квадратного уравнения.
  вещ a, b, c
  вещ таб корни[1:2]
  цел индекс, число корней
  вывод "Укажите первый коэффициент: "
  ввод a
  вывод нс, "Укажите второй коэффициент: "
  ввод b
  вывод нс, "Укажите свободный член: "
  ввод c
  решить квур(a, b, c, число корней, корни)
  если число корней = -1
    то
      вывод нс, "Первый коэффициент не может быть равен нулю.", нс
    иначе
      если число корней = 0
        то
          вывод нс, "Уравнение не имеет корней.", нс
        иначе
          если число корней = 1
            то
              вывод нс, "Уравнение имеет один корень.", нс
              вывод "x = ", корни[1], нс
            иначе
              вывод нс, "Уравнение имеет два корня.", нс
              нц для индекс от 1 до число корней шаг 1
                вывод "x", индекс, " = ", корни[индекс], нс
              кц
          все
      все
  все
кон

алг решить квур(арг вещ a, b, c, арг рез цел число корней, арг рез вещ таб корни[1:2])
нач
  вещ дискриминант
  если a = 0
    то
      число корней := -1
    иначе
      дискриминант := b**2 - 4 * a * c
      если дискриминант > 0
        то
          корни[1] := (-b - sqrt(дискриминант)) / (2 * a)
          корни[2] := (-b + sqrt(дискриминант)) / (2 * a)
          число корней := 2
        иначе
          если дискриминант = 0
            то
              корни[1] := -b / (2 * a)
              число корней := 1
            иначе
              число корней := 0
          все
      все
  все
кон