PASKAL

   PROGRAM PENGULANGAN MENGGUNAKAN

REPEAT  UNTIL

Uses wincrt;

Var         ui            :char;

                A             :string;

Begin

repeat

Clrscr;

Write(‘masukan nama : ‘);readln(A);

Clrscr;

Writeln(‘hai ‘,A);

Writeln;

Write('apakah anda ingin mengulang lagi????<Y/T> ');  readln(ui);

Until upcase(ui)<>'Y';

End.