Membuat Program Pascal (Mencari nilai x dan y dari dua persamaan linear)

Bismillah.

Assalamualaikum..

jumpa lagi ni di tugas selanjutnya. kali ini akan dijelaskan tentang membuat flowcart dan program input_output pascal untuk menentukan nilai x dan y dari dua persamaan linear 2 variabel. tentunya akan ditampilkan dahulu flowcart untuk mempermudah membuat programnya.

setelah itu kita dapat membuat programnya, seperti di bawah ini:

uses wincrt;
var
x,y,nx,ny:real;
a,b,c,d,e,f:integer;
lg:char;
begin
repeat
writeln('Persamaan pertama ax+by=c');
write('berapa nilai a:');
readln (a);
write('berapa nilai b:');
readln(b);
write ('berapa nilai c:');
readln (c);
writeln('Persamaan kedua ax+by=c');
write('berapa nilai a:');
readln (d);
write('berapa nilai b:');
readln(e);
write ('berapa nilai c:');
readln (f);
writeln('maka kedua persamaan:');
writeln(a,'x + ',b,'y = ',c);
writeln(d,'x + ',e,'y = ',f);
nx:=((e*c)+(-b*f)) div ((a*e)-(b*d));
ny:=((-d*c)+(a*f)) div ((a*e)-(b*d));
writeln('nilai x:',nx:2:2);
writeln('nilai y:',ny:2:2);
write('Apa Anda ingin mengulang? (y/t)');
readln(lg);
until lg='t'
end.

setelah dirun kita dapat menjalankan program untuk mencari nilai x dan y dari dua persamaan linear dua variabel. 

silakan mencoba. ^_^
wassalammualaikum.