program array pascal

 program array3;
 var
 nlai:array[1..5]of integer;
 i,j:byte;
 begin
 for i:=1 to 1 do
 begin
 write('adhi no absen ',i,'=');readln(nlai[1]);
  if (nlai[1] >= 80) then
 writeln(nlai[1],' lulus')
 else
 writeln(nlai[1],' tidak lulus');

 write('wildan no absen ',i,'=');readln(nlai[2]);
 if (nlai[2] >= 80) then
 writeln(nlai[2],'lulus')
 else
 writeln(nlai[2],' tidak lulus');

 write('firman no absen ',i,'=');readln(nlai[3]);
if (nlai[3] >= 80) then
 writeln(nlai[3],' lulus')
 else
 writeln(nlai[3],' tidak lulus');

    end;
 readln;



end.