Minggu, 22 November 2015
contoh fungsi readln
program input;
uses crt;
var
nama,alamat:string;
umur:integer;
ipk:real;
begin
clrscr;
writeln('Masukkan Data Mahasiswa');
writeln('=======================');
write('Nama :');
readln(nama);
write('Alamat :');
readln(alamat);
write('Umur :');
read(umur);
write('IPK :');
readln(ipk);
writeln;
writeln('=========HASIL=========');
write('Nama: ',nama,'. Alamat: ',alamat);
writeln('. Umur: ',umur,'. IPK: ',ipk:1:2);
readln;
end.
