Tugas TIK 10 Mei 2010 individu

Bisa di lihat 'di sini' Tugas TIK yang diberikan tanggal 10 Mei 2010. Tentang pascal.
Untuk X-4 yang ndownload file ini, dan itu buat ditumpuk harap jangan sama persis ya ;)
Jika range rata rata kurang panjang, var "banyak" dan "jumlah" dimasukin ke real aja.
Di bawah ini adalah print screen versi terbaru setelah diedit :

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.