program inlpack;
type pa = packed array [1..5] of 0..7;


function paref3(const a : pa): integer;
begin
  paref3 := a[3]
end;
begin
  if paref3(pa[1..5:4]) = 4 then
    writeln('OK')
  else
    writeln('failed')
end
.
