fork(1) download

copy

const n = 4;
var i, x: integer;
var maximum, count: integer;
begin
  count := 0;  maximum := 999;
  for i:=1 to n do begin
    read( x );
    if x mod 3 = 0 then begin
      count := count + 1;
      if x < maximum then maximum := x;
    end;
  end;
  if count > 0 then begin
    writeln(count);riteln(maximum);
  end
  else writeln('NO'); 
end.
 

prog.pas:1: warning: missing program header
prog.pas: In main program:
prog.pas:14: error: undeclared identifier `riteln' (first use in this routine)
prog.pas:14: error:  (Each undeclared identifier is reported only once
prog.pas:14: error:  for each routine it appears in.)

Standard output is empty