Program Sederhana Biodata

uses crt;

var

      nama, alamat : string;

      umur             : integer;

begin

clrscr;

writeln ('===============================');

writeln ('                                Biodata                                ');

writeln ('===============================')

write ('Nama :'); readln (nama);

write ('Umur :') readln (umur);

write ('Alamat :') readln (alamat);

writeln ('--------------------------------------------------------------')

writeln ('Jadi data Anda : ');

writeln ('Anda bernama ',nama,'. Umur Anda ',umur,' tahun. Anda tinggal di ',alamat,'.');

writeln;

readkey;

end.