program penerimaan siswa baru

program penerimaan_siswa_baru;
uses wincrt;

var
i:integer;
nis,nama,alamat,belajar:string;
biaya:integer;
cicilan1:integer;
cicilan2:integer;
tunggakan:integer;
begin
for i:=1 to 10 do
begin
write('nis mahasiswa:');
readln(nis);
write('nama mahasiswa:');
readln(nama);
write('alamat mahasiswa:');
readln(alamat);
write('belajar:');
readln(belajar);
write('biaya belajar:');
readln(biaya);
write('cicilan 1:');
readln(cicilan1);
write('cicilan 2:');
readln(cicilan2);
write('tunggakan:');
readln(tunggakan);
writeln('.......................');
end;

end.