PROGRAM masodfoku
  VÁLTOZÓK:
    a, b, c, x1, x2, d: VALÓS
 
  BE: a, b, c
  d := b ^ 2 - 4 * a * c
  HA a = 0 AKKOR
    KI: "Nem másodfokú az egyenlet."
  KÜLÖNBEN
    HA d < 0 AKKOR
      KI: "Nincs megoldás."
    KÜLÖNBEN
      HA d = 0 AKKOR
        x1 := -1 * b / (2 * a)
        KI: "Csak egy megoldás van: ", x1
      KÜLÖNBEN
        x1 := (-1 * b + d ^ 0.5) / (2 * a)
        x2 := -1 * b - d ^ 0.5 / (2 * a)
        KI: "Két megoldás van:", SV, "x1 = ", x1, SV, "x2 = ", x2
      HA_VÉGE
    HA_VÉGE
  HA_VÉGE
PROGRAM_VÉGE