READLN

sama dengan read, readln juga adalah perintah untuk membaca data yang dimasukan si pemakai. Perbedaannya nanti adalah ketika bekerja dengan File Teks(Text File),File Bertype(Typed File) atau File tak bertype (untyped file).
contoh

Var
X,Y,Z:integer;
begin
write('Masukan 3 buah angka bulat: '); readl(X,Y,Z);
writeln;
writeln('Angka pertama = ',x);
writeln('Angka kedua = ',y);
writeln('Angka ketiga = ',z);
end.

contoh

var 
nama:string;
umur:byte;
begin
write('Ketikan Nama : ');readl(nama);
write('Ketikan Umur : ');readl(umur);
writeln;
writeln('Nama : ',nama);
writeln('Umur : ',umur);
end.

contoh

var
s:string;
begin
write('ketik sembarang teks: ');readln(s);
writeln('Anda telah mengetik: ',s);
write('Tekan enter untuk kembali ke Editor');
readln;
end. 


Kembali ke Contoh Program Turbo Pacal