Untitled
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.