fork download
copy 
  1. program ideone;
  2. var a,i, min:integer;
  3. begin
  4. min:=0;
  5. readln(a);
  6. for i:=1 to a do
  7.    begin
  8.       if a < min then
  9.       min:=a;
  10.    end;
  11. writeln(min);
  12. if min <1 then writeln ('YES')
  13.             else writeln ('NO');
  14. end.
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
4
5
12
2
8
stdout
copy 
0
YES
https://ideone.com/MYjv78
language:
Pascal (fpc 3.0.4)
created:
8 days 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!