Определите, какое число будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на четырёх языках программирования).

Бейсик

DIM А, В, Т, М, R AS INTEGER
А = -20: В = 20
М = A: R = F (А)
FOR Т = А ТО В
    IF F(Т) > R THEN 
        М = Т
        R = F (Т)
    END IF
NEXT Т
PRINT М

FUNCTION F (x)
    F = -3 * (x + 2) * (x - 6)
END FUNCTION

Паскаль

var a, b, t, M, R: integer;
function F(x: integer): integer;
begin
    F := -3 * (x + 2) * (x - 6) ;
end;

begin
    a := -20; b := 20;
    M := a; R := F(a);
    for t := a to b do 
    begin
        if (F(t) > R) then begin
            M := t;
            R := F(t); 
        end; 
    end;
write(M); 
end.

Си

int F(int х)
{
    return -3 * (х + 2) * (х - б);
}

void main()
{
    int a, b, t, M, R;
    a = -20; b = 20;
    M = a; R = F(a) ;
    for (t = a; t <= b; t++){
        if ( F(t)>R ) {
            M = t; R = F (t) ;
        }
    }
    printf("%d", M);
}

Алгоритмический язык

нач
    цел a, b, t, М, R
    а := -20; b := 20
    М := a; R:= F(а)
    нц для t от а до b
        если F(t)> R то
            М := t; R := F(t)
        все
    кц
вывод М
кон
алг цел F(цел х)
нач
    знач := -3 * (х + 2) * (х - б)
кон