Untitled

program Operasi;
{deklarasi}
var X1,X2,X3,A,B,C:integer;
    status:boolean;


begin
  X1:=4;
  X2:=10;
  X3:=8;
  A:=2*X1+4-2*X2;
  B:=8+A DIV 4*2;
  C:=(B+8)DIV 4*X2;
  status:=true;
  
  writeln('Nilai X1 = ',X1);
  writeln('Nilai X2 = ',X2);
  writeln('Nilai X3 = ',X3);
  writeln('Nilai A = ',A);
  writeln('Nilai B = ',B);
  writeln('Nilai C = ',C);

end.