program lineaar;
var a,b,c,d:integer;
var x,y:real;
begin
writeln('Programm lahendab lineaarvorrandssteemi kahe muutujaga');
writeln('Sisesta arv=a');
readln(a);
writeln('Sisesta uus number,mis saab vaartuse b');
readln(b);
writeln('Sisesta arv=c');
readln(c);
writeln('Sisesta uus number,mis saab vaartuse d');
readln(d);
writeln(a,'*x+',b,'*y=',27);
writeln(c,'*x+',d,'*y=',34);
writeln('x=','(27-',b,'*y)/',a);
writeln(c,'*',x,'+',d,'*y*',a,'=',34,'*',a);
writeln(a,'*',d,'*',y,'-',c,'*',b,'*',y,'=',a,'*',34,'-',27,'*',c);
writeln('y=',(a*34-27*c)/(a*d-c*b):4:2);
y:=(a*34-27*c)/(a*d-c*b);
writeln('x=',(34-d*y)/c);
end.