Menentukan nilai variabel X dan Y dengan turbo pascal

x,y,nx,ny:real;

a1,a2,b1,b2,c1,c2:integer;

lagi:char;

begin

repeat

clrscr;

writeln('Persamaan pertama ax+by=c');

write('berapa nilai a:');

readln (a1);

write('berapa nilai b:');

readln(b1);

write ('berapa nilai c:');

readln (c1);

writeln('Persamaan kedua ax+by=c');

write('berapa nilai a:');

readln (a2);

write('berapa nilai b:');

readln(b2);

write ('berapa nilai c:');

readln (c2);

writeln('maka kedua persamaan:');

writeln(a1,'x + ',b1,'y = ',c1);

writeln(a2,'x + ',b2,'y = ',c2);

nx:=((b2*c1)+(-b1*c2)) div ((a1*b2)-(b1*a2));

ny:=((-a2*c1)+(a1*c2)) div ((a1*b2)-(b1*a2));

writeln('nilai x:',nx:2:2);

writeln('nilai y:',ny:2:2);

write('Apa Anda ingin mengulang? (y/t)');

readln(lagi);

until lagi='t'

end.