pengulangan pada pascal

ni contoh code pengulangan menggunakan bahasa pascal
semoga dapat membantu woke

var
i:integer;

begin

{perulangan menggunakan for}
for i:= 0 to 5 do
begin
writeln('nilai i adalah = ',i);
end;
writeln('');

{perulangan menggunakan while}
i:=0;
while (i<=5) do
begin
writeln('nilai adalah = ',i);
i := i+1;
end;
writeln('');

{perulangan menggunakan repeat}
i:=0;
repeat
writeln('nilai adalah = ',i);
i := i+1;
until (i>5);
readln;

end.