READ

Read adalah perintah untuk membaca data yang dimasukan sipemakai

Contoh

Var
X,Y,Z:integer;
begin
write('Masukan 3 buah angka bulat: '); read(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 : ');read(nama);
write('Ketikan Umur : ');read(umur);
writeln;
writeln('Nama : ',nama);
writeln('Umur : ',umur);
end. 

Kembali ke Contoh Program Turbo Pacal