uses wincrt;
type data=record
nama,jumlah:string;
kode:integer;
end;
larikdt=array[1..30]of data;
var
lagi:char;
x:integer;
n,i:byte;
ip:integer;
p:larikdt;
y,t:string;
begin
lagi:='y';
repeat
begin
inc(n);
writeln('mengisi data buku ',n);
write('nama buku==> ');readln(p[n].nama);
write('masukan kode==> ');readln(p[n].kode);
write('masukan jumlah==> ');readln(p[n].jumlah);
writeln;
write('apakah anda mau memasukan data buku lagi<y/t>==> ');readln(lagi);
end;
until(lagi='t');
writeln;
{hasil pengisian}
write('mengisikan data buku');writeln;
for i:=1 to n do
begin
write('masukan ',p[i].nama,' dengan jumlah ',p[i].jumlah,' posisi kode ',p[i].kode,' : ');
readln(x);
end;
clrscr;
writeln;
writeln('DAFTAR BUKU PERPUSTAKAAN UNIVERSITAS TEKNOLOGI YOGYAKARTA');
writeln('================================================================');
writeln('no nama kode jumlah');
writeln('================================================================');
for i:=1 to n do with p[i] do
writeln(i:3, nama:15, kode:15, jumlah:20);
writeln('================================================================');
end.