program uklad__z_2_niewiadomymi;
uses CRT;
var
a,b,c,d,e,f,W,Wx,Wy:real;
begin
clrscr;
writeln;
writeln('|ax+by=c');
writeln('|dx+ey=f');
writeln;
write('Podaj a: ');
readln(a);
write('Podaj b: ');
readln(b);
write('Podaj c: ');
readln(c);
write('Podaj d: ');
readln(d);
write('Podaj e: ');
readln(e);
write('Podaj f: ');
readln(f);
W:=(a*e)-(b*d);
if W<>0 then
begin
Wx:=(b*f)-(c*e);
Wy:=(a*f)-(c*d);
writeln;
writeln('x= ',(Wx/W):0:2);
writeln('y= ',(Wy/W):0:2);
end
else
writeln('Uklad ma nieskonczenie wiele rozwiazan....');
readln;
end.
kod działa, ale chyba źle oblicza nie wiem co zmienić pomóżcie