with Ada.Text_IO;
use Ada.Text_IO;

package body Tasks is

    task body Logger is
    begin
        loop
            delay 1.0;
            Put_Line("...");
        end loop;
    end Logger;

    task body Sensor is
        I : Float := 3.0;
        R : Float := 10.0;
    begin
        loop
            delay 1.5;
            R := R / I; --This eventually divides by zero. Given that they are floating point types, if there is IEEE 754 conformance, you will get ∞, otherwise you get an exception.
            I := I - 1.0;
        end loop;
    end Sensor;

end Tasks;