Pascal/Turbo Pascal - Ecuciones de primer grado

Uses CRT;

var

  a,b : integer;

  x : real;

begin

  Clrscr;

  Writeln('Introduzca el valor del coeficiente a: ');

  readln(a);

  Writeln('Introduzca el valor de b: ');

  readln(b);

  if a<>0 then

    x:=-b/a

  else

    writeln('Caso cr¡tico. A no puede tener valor cero');

  writeln('la soluci¢n es : ',x:2:2);

  readln;

  end.