Решите методом половинного деления и через формулу.в магазине на полке находятся 4 йогурта : клубничный, злаково - клубничный, злаково - яблочный и яблочный. сколько информации несет сообщение о том, что ира купила злаково - клубничный йогурт?

Ну, в общем, лови решение.

{ FreePascal 2.6.4}
program test;
uses
    crt;
var
    a, b, c, d  : integer;
    f : longint;

procedure swap (var x : integer; var y : integer);
var z : integer;
begin
    z := x;
    x := y;
    y := z;
end;

function nod (m, n : integer) : integer;
begin
    while m<>n do begin
        if m>n
        then
            m:=m-n
        else
            n:=n-m;
    end;
    nod := m;
end;

function max (a,b : integer) : integer;
begin
    if a>b
    then max := a
    else max := b;
end;

function min (x, y, z : integer) : integer;
var m : integer;
begin
    m := x;
    if y<m then m := y;
    if z<m then m := z;
    min := m;
end;

function mypow (a, b : integer) : integer;
var e, f : integer;
begin
    f := 1;
    for e:=1 to b do f := f*a;
    mypow := f;
end;

function fact(a : integer) : longint;
var
    i : integer;
    res : longint;
begin
    res := 1;
    for i := 1 to a do res := res*i;
    fact := res;
end;

begin
    clrscr;
    writeln('Test of function SWAP');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    swap(a, b);
    writeln('A=', a, ', B=', b);
    writeln;

    writeln('Test of function NOD');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    c := nod(a, b);
    writeln('NOD(', a, ',', b, ')=', c);
    writeln;

    writeln('Test of function MAX');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    c := max(a, b);
    writeln('MAX(', a, ',', b, ')=', c);
    writeln;

    writeln('Test of function MIN');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    write('Input C: ');
    readln(c);
    d := min(a, b, c);
    writeln('MIN(', a, ',', b, ',', c, ')=', d);
    writeln;

    writeln('Test of function POW');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    c := mypow(a, b);
    writeln('POW(', a, ',', b, ')=', c);
    writeln;

    writeln ('Test of function FACT (not large than 12!)');
    write('Input A: ');
    readln(a);
    f := fact(a);
    writeln(a, '!=', f);
    writeln;
    readkey;

end.

Код в файлах. Отдельно реализован класс Geometry. Пример работы представлен на скриншоте.

Внимание! Хром жрет строки! Сейчас поправлю

Laboratorna2.cs
//////////////////////////////////////////////////
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace Laboratorna2{
    class Laboratorna2
    {
        public static void A() {
             Console.WriteLine("Привет, это метод А()");
        }
        public static void B(int n, int m) {
             Console.WriteLine(n + m);
             Console.WriteLine(n - m);
             Console.WriteLine(n * m);
             Console.WriteLine(Convert.ToDouble(n) / m);
        }
        public static double C(double k, double l, double m) {
             return (k + l + m) / 3;
        }
  public static string N11(ref int Numb) {
             Numb = 11 * Numb; return "";
  }
  public static int Line(ref string line) {
             char[] arr = line.ToCharArray();
             Array.Reverse(arr);
             line = new string(arr);
             return line.Length;
  }
  static void Main(string[] args) {
             Console.WriteLine("Метод А:"); A();
             Console.WriteLine("Метод B:"); B(5, 7);
             Console.WriteLine("Метод C: {0}", C(4.33, 13.6, -14.88439435));
             Console.WriteLine("Geometry.S: {0}", Geometry.S(5));
             double P, S;
             Geometry.Par(5, out P, out S);
             Console.WriteLine("Geometry.Par: P={0}; S={1}", P, S);
             int N = 7;
             Console.WriteLine("Метод N11: Число = {0}; Результат = {2}", N, N11(ref N), N);
             string kekus = "Lol Kek Cheburek!";
             Console.WriteLine("Метод Line: Исходная строка = \"{0}\"; Длина = {1}; Результирующая строка = \"{2}\";", kekus, Line(ref kekus), kekus);
             Console.ReadKey();
      }
    }
}

Geometry.cs
\\\\\\\\\\\\\\\\\\\\\\\\\
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace Laboratorna2 {
 class Geometry {
  public static double S(double R) {
   return Math.PI * Math.Pow(R, 2);
   }
  public static void Par(double R, out double S, out double P) {
   S = Math.PI * Math.Pow(R, 2);
   P = 2 * Math.PI * R;
  }
 }
}