data karyawan
program pascal_karyawan; uses crt; tdata=^data; data:record nik:string; nama_karyawan:string; alamat:string; jabatan:string; jenis_kelamin:string; end; var x:data; y:integer; procedure jumlah; write('masukan nama_karyawan'); readln(y); End; procedure:input_data; var i:integer; Begin for i=1 to y do Begin write('masukan nik'); readln(A.nik); write('masukan nama_karyawan'); readln(A.nama_karyawan); write('masukan alamat'); readln(A.alamat); write('masukan jabatan'); readln(A.jabatan); write('masukan jenis_kelamin'); readln(A.jenis_kelamin); writeln('masukan nik',A.nik); writeln('masukan nama karyawan',A.nama_karyawan); writeln('masukan alamat',A.alamat); writeln('masukan jabatan',A.jabatan); writeln('masukan jenis kelamin',A.jenis_kelamin); readln(); End; End; Begin clrscr ...