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.
Tidak ada komentar:
Posting Komentar