PERULANGAN KATA
program puisi_kata;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var
i : integer;
begin
writeln;
writeln(' Oppa... ');
writeln(' Dunia terasa hamapa tanpamu... ');
writeln(' Hanya satu yang ingin kusampaikan ');
writeln;
for i := 1 to 3 do
writeln(i,' Saranghae ... ');
Readln;
End.
Itu scripnya ..
*kalo ingin memper ulang lebih banyak, ganti angka " 3 " itu dengan jumlah angka yang kalian ingin kan ..
Selamat mencoba ^^



0 komentar:
Posting Komentar