uses wincrt;
const n=5;
var nip:array [1..n] of integer;
nama:array [1..n] of string;
produk:array [1..n] of real;
I:integer;
pil:char;
Pasword:string;
gaji:real;
begin
writeln(' Program ');
writeln;
begin
repeat
begin
writeln('Masukan Pasword : ');
readln(Pasword);
end;
until (Pasword ='ptsumbermakmursejahtera');
end;
clrscr;
begin
repeat
writeln;
writeln(' Menu Utama');
writeln('1. Kata Pengantar');
writeln('2. Input Data Pegawai PT Sumber Makmur Sejahtera');
writeln('3. Selesai');
writeln;
writeln('Pilihan :');readln(pil);
case pil of
'1':begin
clrscr;
writeln(' P.T. Sumber Makmur Sejahtera');
writeln;
writeln(' Adalah suatu pabrik pemproduksi gantungan kunci berkualitas tinggi.');
writeln('Sebagian dari produksi kami telah di eksport ke berbagai negara seperti');
writeln('Malaysia, Singapura, DLL.');
writeln(' Dengan adanya pabrik ini di harapkan dapat mengurangi jumlah penganggur-');
writeln('an di daerah sekitar wilayah desa Suka Maju.');
writeln(' Hormat Kami,');
writeln;
writeln(' T.T.D');
writeln;
writeln;
writeln(' Direktur');
writeln('============================================================================');
end;
'2':begin
clrscr;
writeln('Ada ' ,n,' Pegawai');
for I:=1 to n do
begin
writeln('========================');
write('Nama : ');readln(nama[1]);
write('NIP : ');readln(nip[1]);
write('Hasil Produksi : ');readln(produk[1]);
if(produk[1]>=80) then writeln('Pegawai Yang Rajin Buanget')
else
if(produk[1]>=60) then writeln('Pegawai Rajin')
else
if(produk[1]>=40) then writeln('Pegawai Kurang Rajin')
else
if(produk[1]>=20) then writeln('Pegawai Malas')
else
writeln('Pegawai Yang Malas Buanget');
gaji:=produk[1]*1000;
writeln('Upah Anda Rp. ',gaji:6:2);
end;
end;
'3':begin
clrscr;
writeln(' Program Selesai');
writeln('Thank You . . . . . . . . . .');
end;
end;
until (pil='3');
end;
end.