Написать программу для решения системы линейных уравнений a1x+b1y=c1; a2x+b2y=c2 — Pascal(Паскаль)

uses crt;
const n=3;
var a1,b1,c1,
    a2,b2,c2,
    x1,x2:real;
begin
clrscr;
a1:=3;b1:=4;c1:=-1;
a2:=2;b2:=-5;c2:=30;
{приведение матрицы к треугольному виду}
{обнуляем коэффициент при х1 во 2 уравнении}
b2:=b1+b2*(-a1/a2); c2:=c1+c2*(-a1/a2);
{ищем корни, начиная с последнего}
x2:=c2/b2;
x1:=(c1-b1*x2)/a1;
writeln('Корни системы:');
write('x1=',x1:0:2,'  x2=',x2:0:2);
readln;
end.