Pascaal - sustava rovnic

mam za ulohu vyriesit sustavu dvoch rovnic ax+by= c a dx+ ey=f na vstupe sa zadaju a,b,c,d,e,f samo o sebe by to nebol problem ale ked jedo z nich je 0 tak tak to spadne vedel by mi niekto poradit ako to spravit aby to viriesilo aj v tedy ked na vstupe bude aj 0?

program linrov;

var a,b,c,d,e,f,x,y:real;

begin
readln (a,b,c,d,e,f);
x:= (f*b-c)/(b*d-a);
y:=(c-a*x)/b;
writeln ('x= ',x,' a y= ',y);
readln;
end.

tak zaprve: malo by to padat len ked je nulove b a (b*d-a)
tak zadruhe: este pred priradeniami daj zlozenu podmienku pre tie vyrazy co su hore a ked je podmienka splnena tak sa vypise ze sa to neda vypocitat alebo mozes aj specifikovat pre Inf rieseni.

no jasneee ja som uplen zabudol, ze menovatel sa nemoze rovnat nule...velmi pekne ti dakujem