-- Float
--変数
with Ada.Text_IO;
use Ada.Text_IO;
with Ada.Integer_Text_IO;
use Ada.Integer_Text_IO;
procedure MyApp is
score: integer;
begin
get(score);
if score > 80 then
put_line("great!");
elsif score > 60 then
put_line("good!");
else
put_line("...");
end if;
end MyApp;
[vagrant@localhost ada_lessons]$ gnatmake myapp.adb gcc -c myapp.adb gnatbind -x myapp.ali gnatlink myapp.ali [vagrant@localhost ada_lessons]$ ./myapp 25 ...
