Penggunaan repeat ... until

Contoh Penggunaan Repeat ... Until

uses wincrt ;
var
i,j,y : integer ;
begin
write ('Berapa banyak ingin mencetak tulisan "Ga_Sur"? '); readLn (j);
i:=1 ;
y:=2;
Repeat
gotoxy(20,y) ;
writeLn('Ga_Sur') ;
i:=i+1 ;
y:=y+1 ;
Until i>j ;
end.