Написать программу для решения системы линейных уравнений. Паскаль

ну ты уж сам там потестируй как-нибудь:

program q213392176;
var a1, b1, c1, a2, b2, c2, d :real;
begin
write('a1, b1, c1, a2, b2, c2:'); readln(a1, b1, c1, a2, b2, c2);
d := a1*b2 - a2*b1;
if d = 0 then begin writeln('8===>'); exit; end;
writeln('x = ', (c1*b2 - c2*b1) / d);
writeln('y = ', (a1*c2 - a2*c1) / d);
end.