program           persamaanlinear;

uses wincrt       ;

var bil,bil1,bil2:integer;

begin

writeln (‘masukan nilai y: ‘);

readln (bil);

writeln (‘masukan nilai x: ‘);

readln(bil2);

writeln(‘masukan nilai z: ‘);

readln(bil1);

writeln ( ‘f(x)=’,bil2,’x +’,bil,’y+’,bil1,’z)’);

end.