24 lines
451 B
Ada
24 lines
451 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;
|
||
|
|
package Obj is
|
||
|
|
type A is tagged record
|
||
|
|
p: Integer;
|
||
|
|
end record;
|
||
|
|
|
||
|
|
end Obj;
|
||
|
|
i : Integer := 1;
|
||
|
|
ooops: Obj.A;
|
||
|
|
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;
|