program Data_mahasiswa

program Data_mahasiswa;
uses wincrt;
type Mhs = record
NIM : String [12];
Nama : string [20];
Prodi : string [20];
Ip : real;
lagi : char;
end;
var data : Mhs;
begin
with data do
begin
repeat
write ('NIM : ');readln(NIM);
write ('Nama : ');readln(Nama);
write ('Prodi : ');readln(prodi);
write ('IP : ');readln(Ip);
writeln;
write ('Mau Masukkan Data Lagi/Tidak ? [Y/T] : ');readln(lagi);
writeln;
until upcase(lagi)<>'Y';
end;
clrscr;
writelN ('DATA YANG DIIPUTKAN');
Writeln ('===================');
writeln ('NIM : ',data.NIM);
writeln ('Nama : ',data.Nama);
writeln ('Prodi : ',data.Prodi);
writeln ('Ip : ',data.Ip:2:2);
end.