program biodata

program biodata;
uses crt;

var nm,alm,fak,thn:string;

begin
  clrscr;
  write('Nama     : ');readln(nm);
  write('Alamat   : ');readln(alm);
  write('Fak/Jur  : ');readln(fak);
  write('Angkatan : ');readln(thn);
  clrscr;
  writeln('          Nama     : ',nm);
  writeln('          Alamat   : ',alm);
  writeln('          Fak/Jur  : ',fak);
  writeln('          Angkatan : ',thn);
  readln;
end.
HASILNYA

Posted in: program pascal