Ada

with Text_Io; use Text_Io;

procdure hello is
begin
   put ("Hello world!");
end hello;

Ada windows

with Winuser; use Winuser;

procedure Hello is

        I : Integer;

        begin
        
                I := MessageBox (0, CSTRING("Hello World!"), CSTRING(""), MB_OK);

        end Hello;