program ecuatie_de_gradul_intai;
var a,b,x:real;beginwriteln('Ecuatia de gradul I: ax+b=0');writeln;write('Introduceti o valoare pentru a: ');readln(a);write('Introduceti o valoare pentru b: ');readln(b);if a=0 thenwriteln('Ecuatia nu are sens')elsebeginx:=-b/a;writeln('Valoarea lui x este: ',x);end;Readln;end.