PROGRAM INPUT DATA

uses wincrt;
type data = record
     nama : string[25];
     alamat : string[30];
     jk : string;
     telp : string[10];
     tanggallahir : string[20];
     hobby : string[30];
     kegiatan : string[100];
     Agama : string[20];
     Sekolah : string[50];
end;
var
a : data;
jawaban : char;
begin
     REPEAT
           CLRSCR;
           BEGIN
           WRITE ('NAMA :');READLN(A.NAMA);
           WRITE ('ALAMAT :');READLN (A.ALAMAT);
           WRITE ('JK :');READLN (A.JK);
           WRITE ('TELP :');READLN (A.TELP);
           WRITE ('TANGGAL LAHIR:');READLN (A.TANGGALLAHIR);
           WRITE ('HOBBY :');READLN (A.HOBBY);
           WRITE ('KEGIATAN :');READLN (A.KEGIATAN);
           WRITE ('AGAMA :');READLN (a.Agama);
           WRITE ('SEKOLAH :');READLN (a.SEKOLAH);
           WRITELN;
           WRITELN ('NAMA ANDA :',a. NAMA);
           WRITELN ('alamat :',a.ALAMAT);
           WRITELN('JK :',a.JK);
           WRITELN ('TELP :',a.TELP);
           WRITELN ('TANGGAL LAHIR :',a.TANGGALLAHIR);
           WRITELN ('HOBBY :',a.HOBBY);
           WRITELN ('KEGIATAN :',a.KEGIATAN);
           WRITELN ('AGAMA :',a.AGAMA);
           WRITELN ('SEKOLAH :',a.SEKOLAH);
           WRITELN ('APAKAH ANDA AKAN ENTRI DATA LAGI (Y/T):');
           READLN (JAWABAN);
     END;
     UNTIL (JAWABAN='T');
     END.
     PROGRAM ARRAYKU;
     USES WINCRT;
     var angka:array[1..10] of integer;
     i,n:integer;
     begin
     clrscr;
     writeln('jumlah data : ');readln(n);
     for i:=1 to n do
     begin
          writeln('masukkan angka ke-',i,':');readln(angka[i]);
          end;
          writeln;
          for i:=1 to n do writeln('angka ke-'i,':',angka[i];
     End.