ClubPoker-DNA

Menampilkan kalimat yang diulang sebanyak n kali dgn urutan kata3 kata2 kata1,jika kata1,kata2,kata3 diinput.

uses wincrt;

var

k1,k2,k3:string;

n,x:integer;

begin

write('Masukkan kata 1: ');readln(k1);

write('Masukkan kata 2: ');readln(k2);

write('Masukkan kata 3: ');readln(k3);

write('Masukkan perulangan: ');readln(x);

n:=1;

repeat

if n

n:=n+1;

until n>x;

end.