// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите A,B,C для 1-го уравнения Ax+By=C:');
var (d,e,f):=ReadReal3('Введите A,B,C для 2-го уравнения Ax+By=C:');
//по правилу Крамера
var dd:=a*e-b*d;
var dx:=c*e-b*f;
var dy:=a*f-c*d;
var x:=dx/dd;
var y:=dy/dd;
Writeln('x=',x,', y=',y)
end.
Пример
Введите A,B,C для 1-го уравнения Ax+By=C: 1 5 7
Введите A,B,C для 2-го уравнения Ax+By=C: 3 -2 4
x=2, y=1