fork download
copy 
  1. with Ada.Text_IO, Ada.Integer_Text_IO;
  2. use Ada.Text_Io, Ada.Integer_Text_IO;
  3. procedure My_program_3 is
  4.  
  5. num1, num2, num3 : INTEGER:=0;
  6.  
  7. begin
  8. num1:= 1;
  9. num2:= 2;
  10. num3:= 3;
  11. if (num1 > num2) and (num1 > num3) then
  12. put(num1);
  13. --elseif (num2 > num3)then
  14. --put(num2);
  15. else 
  16. put(num3);
  17. end if;
  18. end My_program_3;
Success #stdin #stdout 0.01s 1732KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
          3
https://ideone.com/Ak3cf
language:
Ada95 (gnat 8.3)
created:
14 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!