Решить систему линейных уравнений - Turbo Pascal (30074)

uses crt;
var a1,b1,c1,a2,b2,c2,d,d1,d2,x,y:real;
begin
clrscr;
writeln('Введите коэффициенты первого уравнения:');
readln(a1,b1,c1);
writeln('Введите коэффициенты второго уравнения:');
readln(a2,b2,c2);
clrscr;
writeln('Система:');
write(a1:5:2,'x');
if b1<0 then writeln(b1:5:2,'y=',c1:5:2)
else writeln(' +',b1:5:2,'y=',c1:5:2);
write(a2:5:2,'x');
if b2<0 then writeln(b2:5:2,'y=',c2:5:2)
else writeln(' +',b2:5:2,'y=',c2:5:2);
writeln;
d:=a1*b2-a2*b1;
if d=0 then
 begin
  write('Решений нет');
  readln;
  exit
 end;
d1:=c1*b2-c2*b1;
d2:=a1*c2-a2*c1;
x:=d1/d;
y:=d2/d;
writeln('x=',x:0:2);
writeln('y=',y:0:2);
readln
end.