algoritma

PROGRAM UTS13_1;
USES WINCRT;
VAR
HAL,HA,HT,HK,TT,BT,GT:INTEGER;
BEGIN
HAL:=1;
HA:=1;
GT:=0;
WHILE HAL<3 DO
BEGIN
HT:=1;
TT:=0;
WHILE HT<4 DO
BEGIN
BT:=1;
HK:=0;
WHILE BT<16 DO
BEGIN
WRITE(HT:2,' ');
HK:=HK+HT;
BT:=BT+1;
END;
WRITELN('=',HK:6);
TT:=TT+HK;
HT:=HT+1;
END;
GT:=GT+TT;
WRITELN('TOTAL            =',TT:6);
WRITELN('TOTAL KESELURUHAN=',GT:6);
HAL:=HAL+1;
WRITELN;
END;
END.