Rumus Gotoxy

uses wincrt;
var nama,alamat,kode,nomor,jenis,keterangan,obat,namo:string;
tanggal,n,i,y,rekening,urut:integer;
jumlah,pemakaian,usg,konsul,harga,jumbat,qty,bayar,kembali:longint;
total,denda:real;
lagi,hm:char;

begin
repeat
y:=12;
clrscr;
writeln('=============================================================');
writeln(' APOTIK KRAKATAU MEDIKA ');
writeln(' Jl. Raya Pandean, KM 2 Serang Banten ');
writeln('=============================================================');
write('No. Kwitansi : '); readln(urut);
write('Tanggal : '); readln(tanggal);
gotoxy(35,5); write('Nama :'); gotoxy(46,5); readln(nama);
gotoxy(35,6); write('Alamat :'); gotoxy(46,6); readln(alamat);
writeln('============================================================');
write('Jumlah obat yang di beli : '); readln (n);
writeln('============================================================');
writeln(' No. Kode Nama Obat Qty Satuan Jumlah ');
writeln('------------------------------------------------------------');
for i:= 1 to n do
begin
gotoxy(2,y); writeln(i);
gotoxy(6,y); readln(kode);
gotoxy(12,y); readln(namo);
gotoxy(30,y); readln(qty);
gotoxy(38,y); readln(harga);
jumlah:=harga*qty;
gotoxy(53,y); writeln(jumlah);
jumbat:=jumbat+jumlah;
y:=y+1;
end;
writeln('============================================================');
writeln(' Total : ',jumbat);
write(' Bayar : '); readln(bayar);
kembali:=bayar-jumbat;
writeln(' Kembali : ',kembali);
writeln('============================================================');
write('Transaksi Lagi (y/t) : '); readln(lagi);
until (lagi='t') or (lagi='T');
readln;
donewincrt;
end.