program linearis; var m,b,x:real; procedure megold(f,g:real; var j:real); begin j:=-g/f; end; begin writeln('Kerem m es b erteket!'); readln(m); readln(b); if (m=0) and (b=0) then writeln('minden valosszam megoldas') else if m=0 then writeln('Nincs megoldas') else begin megold(m,b,x); writeln(x:10:2) end; readln end.