Uses wincrt;
var
nama:array[1..10]of string[20];
alamat:array[1..20]of string[30] ;
jml:array[1..20]of real;
i,j:byte;
begin
clrscr;
write('masukkan jumlah data:');readln(j);
for i:=1 to j do
begin
writeln('data ke-',i);
write('nama karyawan:');readln(nama[i]);
write('masukkan alamat:');readln(alamat[i]);
write('jumlah gaji:'); readln (jml[i]);
end;
clrscr;
writeln('DATA GAJI KARYAWAN');
writeln('========================');
writeln('No. nama karyawan total gaji');
writeln('========================');
for i:=1 to j do
begin
writeln(i:1,nama[i]:15,jml[i]:15:0);
end;
writeln('==========================');
readln
end.
