contoh Program pengulangan pada pascal

program pengulangan;
uses wincrt;
var a:string;
i,pilihan:integer;
begin
writeln('1.kata warna');
writeln('2.kata benda');
write('mau pilih yg mana ?=');readln(pilihan);
if pilihan=1 then
begin
writeln('1.kata warna');
write('masukkan kata warna =');readln(a);
write('mau ulang berapa kali ?');readln(i);
for i:=1 to i do
writeln(a);
end;
if pilihan=2 then
begin
writeln('2.kata benda');
write('masukkan kata benda =');readln(a);
write('mau ulang berapa kali ?');readln(i);
for i:=1 to i do
writeln(a); 
end;
end.