VAR
K,BT : INTEGER;
BEGIN
K := 7; BT := 1;
WHILE BT<=8 DO
BEGIN
WRITE(K, ' ');
BT := BT+1;
END;
WRITELN;
END.
Hasil
PROG 7
PROGRAM PROG7;
VAR
K,BT : INTEGER;
BEGIN
K := 7; BT := 1;
WHILE BT<=8 DO
BEGIN
WRITE(K, ' ');
BT := BT+1;
END;
WRITELN;
END.
Hasil
VAR
K,BT : INTEGER;
BEGIN
K := 7; BT := 1;
WHILE BT<=8 DO
BEGIN
WRITE(K, ' ');
BT := BT+1;
END;
WRITELN;
END.
Hasil
0 komentar:
Post a Comment