MEMBUAT BIODATA

program Input_data;
uses wincrt;
var
   nama, TL, Tlr, Jk, Agama, Alamat : String;
begin
   GOTOXY(35,6); WRITELN('B I O D A T A');
   GOTOXY(19,7); WRITELN('-------------------------------------------');
   GOTOXY(20,9); write('Nama           :  ');  READLN(nama);
   GOTOXY(20,10);write('Tempat lahir   :  ');  READLN(TL);
   GOTOXY(20,11);write('Tanggal Lahir  :  ');  READLN(tlr);
   GOTOXY(20,12);write('jenis kelamin  :  ');  READLN(jk);
   GOTOXY(20,13);write('Agama          :  ');  READLN(agama);
   GOTOXY(20,14);write('alamat         :  ');  READLN(alamat);
   GOTOXY(19,15);WRITELN('--------------------------------------------');

   GOTOXY(18,17);writeLN('Input Data');
   GOTOXY(19,18); WRITELN('-------------------------------------------');
   GOTOXY(20,19);writeln('Nama Anda          : ',nama);
   GOTOXY(20,20);writeln('Tempat lahir       : ',tl);
   GOTOXY(20,21);writeln('Tanggal lahir Anda : ',tlr);
   GOTOXY(20,22);writeln('Jenis kelamin      : ',jk);
   GOTOXY(20,23);writeln('Agama              : ',agama);
   GOTOXY(20,24);writeln('Alamat             : ',alamat);
   GOTOXY(19,25);WRITELN('--------------------------------------------');
   end.