NuSinau

USES WINCRT;
TYPE DATA = RECORD
  NAMA : STRING[25];
  ALAMAT : STRING[30];
  JK : STRING ;
  TELP : STRING [10];
  TANGGALLAHIR : STRING[20] ;
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);
      WRITELN;
      WRITELN('NAMA ANDA :',a.NAMA);
      WRITELN ('ALAMAT ANDA : ',a.ALAMAT);
      WRITELN ('JK :',a.JK);
      WRITELN ('TELP :',a.TELP);
      WRITELN ('TANGGAL LAHIR :', a.TANGGALLAHIR);
      WRITELN ('APAKAH ANDA AKAN ENTRI DATA LAGI(Y/T):');
      READLN(JAWABAN);
    end;
  UNTIL (JAWABAN='T');
end.

program arrayku;
uses wincrt;
var angka:array[1..100] 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.