Untitled

mail@pastecode.io avatar
unknown
plain_text
10 months ago
360 B
2
Indexable
Never
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.