Написать программу для решения следушего задания

[Joy9]

Я написал задачу, но кажется немного не правильно, помогите исправит!
Пожалуйста!

Написать программу для решения следушего задания:3
По заданым кооэфицентам и правым частям уравнений системы
_
|a1x+b1y=c1
/
\
|_a2x+b2y=c2
Найти её решение в предположение, что определитель системы не равен нулю.

program m23;
uses crt;
var a1,x,b1,y,c1,a2,b2,c2,c:integer;
begin
writeln('vvedite');
readln;
if c=c1 then
begin
C1:=a1*x+b1*y;
C2:=a2*x+b2*y;
writeln('vivod ',c1,c2);
readln;
end;
end.

Заранее всех Благодарю!

 

[root]

Для: Joy9

Тебеже систему надо решить, сначало вырази х через y
a1x+b1y=c1 тогда a1x=c1-b1y =>x=(c1-b1y)/a1
затем подставь во торое уравнение(где a1,b1,c1,a2,b2,c2 числа) 
тоесть
a2*((c1-b1y)/a1)+ b2y=c2=>(a2c1+a2b1y)/a1+b2y=c2=>(a2c1+a2b1y)+b2ya1=c2a1=>a2b1y+b2a1y=c2a1-a2c1=>дальше решить уравнение и подставить в систему

P.S Алгебра помойму 9 класс