Hệ PT bậc nhất hai ẩn

Lập trình để giải hệ phương trình bậc nhất một ẩn:
       a1x + b1y = c1
       a2x + b2y = c2
Với các hệ số ai, bi, ci là các số thực bất kỳ nhập từ bàn phím.
                                                                 Giải
uses crt;
Var
       a1,b1,c1,a2,b2,c2,d,dx,dy,x,y:Real;
BEGIN
       Clrscr;
       Write('Cac he so cua PT thu nhat a1,b1,c1 la: '); Readln(a1,b1,c1);
       Write('Cac he so cua PT thu hai a2,b2,c2 la: '); Readln(a2,b2,c2);
       d:=a1*b2-a2*b1;  dx:=c1*b2-c2*b1;  dy:=a1*c2-a2*c1;
       If d = 0 Then
           If (dx = 0) And (dy = 0) Then
                Write('He phuong trinh co vo so nghiem')
           Else
                Write('He phuong trinh vo nghiem')
      Else
           Begin
               x:=dx/d;  y:=dy/d;
               Write('He phuong trinh co nghiem duy nhat x=',x:6:1,' va y=',y:6:1);
           End;
      Readln;
END.