program data maha siswa dalam pascal

program data_mahasiswa;
uses wincrt;

var
nim,nama,alamat,jurusan:string;
umur:integer;
ip:real;
begin
for

begin
clrscr;
writeln('data maha siswa upb');
writeln('..........................:');
writeln;
write('nim mahasiswa:');
readln(nim);
write('nama mahasiswa:');
readln(nim);
write('alamat mahasiswa:');
readln(nim);
write('jurusan mahasiswa:');
readln(nim);
write('umur mahasiswa:');
readln(nim);
write('ip mahasiswa:');
readln(nim);
write;
write('..................');
readln;

end.