USES WINCRT;
VAR
TAMA,SP,GT,SP1,SR,SP2,T : INTEGER;
BEGIN
TAMA := 1;
SP := 8;
GT := 0;
WHILE TAMA<=8 DO
BEGIN
SP1 := SP;
WHILE SP1>=1 DO
BEGIN
WRITE(' ');
SP1 := SP1-1;
END;
SR := TAMA;
T := 0;
WHILE SR>=1 DO
BEGIN
WRITE(TAMA,' ');
SR := SR-1;
T := T+TAMA;
END;
SP2 := SP;
WHILE SP2>=1 DO
BEGIN
WRITE(' ');
SP2 := SP2-1;
END;
WRITELN(' = ',T);
SP := SP-1;
GT := GT+T;
TAMA := TAMA+1;
END;
WRITELN;
WRITELN(' TOTAL = ',GT);
WRITELN;
WRITELN('ACHMAD NABIL, M.Kom');
WRITELN(' 16.230.0059 ');
END.
HASIL
0 komentar:
Post a Comment