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