Написать и решить программы в c++ и pascal. Заранее спасибо)

Const
    m = 0.92;

var
    z, y, c: real;

begin
    write('Введи у: ');
    readln(y);
    c := 69 - (y - sqr(m)) / sqrt(y);
    if y < 8 then
        z := sqrt(m + c) + c * c * c
    else
        z := sqrt(c - m) - m * m * m;
    write('Ответ: ', z:2:2);
end.

const
    x = 13;
    ha = 4;

var
    a, sb, pa: real;
    i: integer;
    b: array[1..3]of integer;

begin
    b[1] := 14;
    b[2] := 23;
    b[3] := 42;
    sb := 0;
    for i := 1 to 3 do
        sb := sb + b[i];

    a := 12;
    pa := 1;
    while a <= 24 do <br>    begin
        pa := pa * sqrt(a + x);
        a := a + ha;
    end;

    writeln(pa / sb);
end.