repeat-until

var i: shortint;
begin
    i := 0;
    repeat
        writeln('Halo dunia');
        i := i+1; // Baris pembuat kondisi TRUE
    until (i=10); // Baris pengecekan kondisi TRUE or FALSE
end.