Ребята по информатике, Pascal. 1.Написать программу нахождения произведения суммы двух чисел с третьим числом
2.Определить координаты вершины параболы y=ax2+bx+c (a<>0). Коэффициенты a,b,c заданы
3. Написать программу для вычисления S=2C^4 -C/B- 3 корень|C+B|,где C=корень| 13x+y|;B=2x/y, где x и y вводятся с.

Там где написано "корень" это квадратный корень хотя бы 2 задания надо.

Procedure GetAB(x: integer; var a: integer; var b: integer);
begin
    a := 0;
    b := 1;
    while x > 0 do
    begin
        a := a + 1;
        b := b * (x mod 100);
        x := x div 100;
    end;
end;

var
    x, a, b: integer;

begin
    for x := 10000 to 2000000000 do
    begin
        GetAB(x, a, b);
        if (a = 3) and (b = 18) then
            Println(a, b, x);
    end;
end.

выдает такие значения
3 18 10118
3 18 10209
3 18 10306
3 18 10603
3 18 10902
3 18 11801
3 18 20109
3 18 20303
3 18 20901
3 18 30106
3 18 30203
3 18 30302
3 18 30601
3 18 60103
3 18 60301
3 18 90102
3 18 90201
3 18 180101

Выделенное наибольшее

Линейный алгоритм
если в алгоритме присутствует условие,то это алгоритм называется разветвляющийся(ветвление), Разветвляющийся алгоритм — алгоритм, в котором в зависимости от условия выполняется либо одна, либо другая последовательность действий
алгоритм в котором действия повторяются многократно называется циклический
Циклический алгоритм — описание действий, которые должны по вторяться указанное число раз или пока не выполнено заданное условие. Перечень повторяющихся действий называется телом цикла.