Program hitung;

Uses wincrt;

var bil1x, bil2y,bil3z,bil4, hasil: integer;

begin

writeln(‘SISTEM PERSAMAAN LINIER TIGA VARIABEL’);

writeln(‘NAMA   : HANA YULISTIANA’);

writeln(‘KLS    : 3 D’);

writeln(‘———————————————‘);

 

writeln(‘rumus persamaan linier ax+by+cz=k’);

writeln(‘masukkan a:’);writeln(‘x’);readln (bil1x);

writeln(‘masukkan b:’); readln (bil2y);

writeln(‘masukkan c:’); readln (bil3z);

hasil:=bil1x+bil2y+bil3z;

writeln(‘jadi,’,bil1x, ‘+’, bil2y, ‘+’, bil3z, ‘=’, hasil);

writeln(‘eliminasi x’)

end.