PROGRAM PASCAL ARRAY+CONDISI

uses wincrt;
var
 nm         : array[1..100] of string[25];
 mk         : array[1..100] of integer;
 jjk        : array[1..100] of integer;
 jlbr       : array[1..100] of integer;
 up         : array[1..100] of real;
 ul         : array[1..100] of real;
 upah       : array[1..100] of real;
 i          : longint;

  begin
    i:=1;
    while(i<=5)do
    begin
      write('Nama :');readln(nm[i]);
      write('masa kerja :');readln(mk[i]);
      write('Jumlah Jam Kerja :');readln(jjk[i]);
      if mk[i]> 1 then
        begin
        up[i]:=4000;
        ul[i]:=6000;
        end
      else
        begin
        up[i]:=3000;
        ul[i]:=5000;
        end;

      if jjk[i]<= 48 then
       begin
         up[i]:=jjk[i] * up[i];
       end
      else
       begin
         jlbr[i]:=jjk[i]-48;
         up[i] := (48 * up[i]) + (jlbr[i] * ul[i]);
       end;

       writeln('-------------------------------');
       writeln('No    Nama      JJK    Upah    ');
       writeln('-------------------------------');
       writeln(i:3,nm[i]:8,jjk[i]:8,up[i]:8:0);
       writeln('-------------------------------');
     i:=i + 1;
      end;
  

end.