Equazioni primo grado

{**
 * Questo programma risolve un'equazione di primo grado
 * in forma canonica (ax = b).
 *}
PROGRAM Equazione;
VAR a, b, x : REAL;
BEGIN
    { Scrivi cosa fa il programma all'utente }
    WRITELN('Di un''equazione in forma ax = b ,');
    WRITELN('inserire a e b.');

    { Leggi l'input da tastiera }
    READLN(a, b);

    { Caso 1: identità }
    IF (a=0) AND (b=0) THEN BEGIN
        WRITELN('Risultato indefinito');
    { Caso 2: impossibile }
    END ELSE IF (a=0) THEN BEGIN
        WRITELN('Risultato impossibile');
    { Caso 3: equazione normale }
    END ELSE BEGIN
        {
          Assegno il risultato a una variabile per
          un'eventuale formattazione.
        }
        x:=b/a;
        WRITELN('x =', x);
    END;

    {
      Aspetto un input dall'utente (anche vuoto)
      prima di terminare il programma
    }
    READLN;
END.