Лабораторная работа1

uses crt;
var a1,b1,c1,a2,b2,c2,x,y:real;
begin
clrscr;
writeln('vvedite koefficient a1 pervogo uravnenia');
readln(a1);
writeln('vvedite koefficient b1 pervogo uravnenia');
readln(b1);
writeln('vvedite koefficient c1 pervogo uravnenia');
readln(c1);
writeln('vvedite koefficient a2 vtorogo uravnenia');
readln(a2);
writeln('vvedite koefficient b2 vtorogo uravnenia');
readln(b2);
writeln('vvedite koefficient c2 vtorogo uravnenia');
readln(c2);
if a2*b1<>a1*b2 then
begin
x:=(c1*b2-c2*b1)/(a1*b2-a2*b1);
y:=(c1*a2-c2*a1)/(b1*a2-b2*a1);
writeln('tochka peresechenia');
writeln('(',x:10:2,',',y:10:2,')');
end
else writeln('pryamie parallelni');
readkey;
end.