29 Premium Themes

Included with purchase — and more features on the way!

Get access — $12 once

Version 2 is coming soon. The price goes up when it arrives.
Pay once today and every update after that is free.

One Dark Pro 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Andromeda 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Ayu Dark 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Ayu Mirage 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Ayu Light 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Cobalt2 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Night Owl 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Night Owl Light 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Noctis 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Noctis Azureus 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Noctis Bordo 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Noctis Hibernus 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Noctis Lilac 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Noctis Lux 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Noctis Minimus 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Noctis Obscuro 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Noctis Sereno 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Noctis Uva 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Noctis Viola 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Palenight 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Pico 8 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Shades of Purple 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Shades of Purple SD 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Synthwave '84 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Tokyo Night 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Tokyo Night Storm 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Tokyo Night Light 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Winter is Coming 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Winter is Coming Light 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb
Winter is Coming Dark 
with
    Ada.Text_IO,
    Ada.Integer_Text_IO;
use Ada;

procedure fizz_buzz is
begin
    for i in 1..100 loop
        if i mod 15 = 0 then
            Text_IO.Put_Line("fizz buzz");
        elsif i mod 5 = 0 then
            Text_IO.Put_Line("buzz");
        elsif i mod 3 = 0 then
            Text_IO.Put_Line("fizz");
        else
            Integer_Text_IO.put(i, Width => 0);
            Text_IO.New_Line;
        end if;
    end loop;
end fizz_buzz;

-- From https://github.com/kylelk/ada-examples/blob/master/fizz_buzz.adb