fork download
copy 
  1. const n = 4;
  2. var i, x: integer;
  3. var maximum, count: integer;
  4. begin
  5.   count := 0;  maximum := 999;
  6.   for i:=1 to n do begin
  7.     read( x );
  8.     if x mod 3 = 0 then begin
  9.       count := count + 1;
  10.       if x < maximum then maximum := x;
  11.     end;
  12.   end;
  13.   if count > 0 then begin
  14.     writeln(count);writeln(maximum);
  15.   end
  16.   else writeln('NO'); 
  17. end.
  18.  
Success #stdin #stdout 0s 4400KB
comments (?)
stdin
copy 
2 
9 
4  
3
stdout
copy 
2
3
https://ideone.com/H3TZp9
language:
Pascal (gpc 20070904)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!