17 lines
322 B
Ada
17 lines
322 B
Ada
|
with Ada.Text_IO;
|
||
|
|
use Ada.Text_IO;
|
||
|
|
with Ada.Command_Line;
|
||
|
|
use Ada.Command_Line;
|
||
|
|
|
||
|
|
procedure Hello is
|
||
|
|
package IO renames Ada.Text_IO;
|
||
|
|
i: Integer := 3;
|
||
|
|
begin
|
||
|
|
Put_Line("Hello, world");
|
||
|
|
if i < 2 then
|
||
|
|
Put_Line("Mniejsze od 2 ");
|
||
|
|
else
|
||
|
|
Put_Line("Większe lub równe 2");
|
||
|
|
end if;
|
||
|
|
end Hello;
|