Program Perulangan Kata For Do

Listhing Program  UAS Nomer 2 Hari Ini.
Semoga Bermanfaat.......


PROGRAM UAS_ANGGA;
USES CRT;
VAR I:INTEGER;
    BEGIN
    CLRSCR;


    TEXTCOLOR (10);
              FOR I:=1 TO 20 DO
              WRITELN ('AKU BANGGA MENJADI MAHASISWA STMIK DUTA BANGSA SURAKARTA');
    READLN
END.