MENCARI TOTAL UPAH Dengan Turbo Pascal

PROGRAM UPAH;
USES CRT;
VAR
 NIK : STRING[7];
 NK : STRING[25];
 UP,JK,JA,UM,TA,TU:LONGINT;
BEGIN
 CLRSCR;
 WRITELN('MENCARI TOTAL UPAH');
 WRITELN('------------------');
 WRITE('NOMOR INDUK KARYAWAN       : ');READLN(NIK);
 WRITE('NAMA                       : ');READLN(NK);
 WRITE('UPAH PER JAM               : ');READLN(UP);
 WRITE('JAM KERJA SEMINGGU         : ');READLN(JK);
 WRITE('JUMLAH ANAK                : ');READLN(JA);
 UM:=JK*UP;
 TA:=JA*25000;
 TU:=UM+TA;
 WRITELN('UPAH MINGGUAN              : ',UM);
 WRITELN('TUNJANGAN ANAK             : ',TA);
 WRITELN('TOTAL UPAH                 : ',TU);
 READKEY;
END.