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:= 1;
  7. num2:= 2;
  8. num3:= 3;
  9. if ((num1 > num2) and (num1 > num3)) then
  10. put(num1);
  11. elseif (num2 > num3) then
  12. put(num2);
  13. else 
  14. put(num3);
  15. end if;
  16. end Program3;
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
gnatgcc -c -pipe -O2 prog.adb
prog.adb:11:21: missing ";"
prog.adb:16:01: "end if;" expected for "if" at line 9
gnatmake: "prog.adb" compilation error
stdout
copy 
Standard output is empty
https://ideone.com/tsWjr
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!