PASCAL:

program luvut;

begin
   WriteLn('1/2=',1.0/2.0:10:5);
   WriteLn('1/3=',1.0/3.0:10:5);
   WriteLn('1/2 + 1/3=',1.0/2.0+1.0/3.0:10:5);
   WriteLn('5/6=',5.0/6.0:10:5);
   if 1.0/2.0 + 1.0/3.0 = 5.0/6.0 then
      WriteLn('Yhtäsuuret luvut')
   else
       WriteLn('Erisuuret luvut'); 
end.

---

program sarja;

var ekaLuku, tokaLuku, tilap : single;
var i :  integer;

begin
   ekaLuku := 1;
   tokaLuku := 1/3;
   for i := 2 to 15 do
   begin
      tilap := (13/3)*tokaLuku - (4/3)*ekaLuku;
      ekaLuku := tokaLuku;
      tokaLuku := tilap;
      WriteLn(i,tokaLuku:10:5);
   end;
end.

---

JAVA:

class Luvut
{
    public static void main(String [] args)
    {
	System.out.println("1/2="+1.0/2.0);
	System.out.println("1/3="+1.0/3.0);
	System.out.println("1/2 + 1/3="+(1.0/2.0+1.0/3.0));
	System.out.println("5/6="+5.0/6.0);
	if (1.0/2.0 + 1.0/3.0 == 5.0/6.0)
	    System.out.println("Yhtäsuuret luvut");
	else
	    System.out.println("Erisuuret luvut");
    }
}

---

class Sarja
{
    public static void main(String [] args)
    {
	float ekaLuku=1.0f;
	float tokaLuku=1.0f/3.0f;
	for (int i=2; i<=15; i++)
	{
	    float tilap=(float)((13.0/3.0)*tokaLuku - (4.0/3.0)*ekaLuku);
	    ekaLuku=tokaLuku;
	    tokaLuku=tilap;
	    System.out.print(i);
	    System.out.println("\t"+tokaLuku);
	}
    }
}