Определите, какое целое значение Н нужно ввести, чтобы число, напечатанное в результате выполнения следующего алгоритма, было наибольшим. Если таких значений несколько, то в ответ запишите минимальное из них. Для удобства алгоритм представлен на четырёх языках программирования.

Бейсик

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

FUNCTION F (Н, x)
    F = (x - 10) * (x - H)
END FUNCTION

Паскаль

var a, b, t, M, R, H: integer; 
function F(H, x: integer): integer; 
begin
    F := (x - 10) * (x - H) ; 
end; 
begin
    readln(H); 
    a := -20; b := 40;
    M := a; R : = F (H, a) ; 
    for t := a to b do begin
        if (F(H, t) < R) then begin 
            M := t;
            R := F(H, t) 
        end 
    end;
write(M) 
end.

Си

#include<stdio.h> 
int F(int H, int x)
{
    return (x - 10) * (x - H);
}
void main()
{
    int a, b, t, M, R, H; 
    scant("%d", &H); 
    a = -20; b = 40;
    M = a; R = F (H, a); 
    for (t = a; t <= b; t++){ 
        if (F (H, t) < R) {
            M = t; R = F (H, t);
        }
    }
    printf("%d", M);
}

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

нач
    цел a, b, t, R, M, H 
    ввод H
    a := -20; b := 40 
    M := a; R := F(H, a) 
    нц для t от а до b 
        если F(H, t) < R 
            то
                M := t; R := F(H, t)
            все
    кц
    вывод M 
кон
алг цел F(цел Н, х) 
нач
    знач := (х - 10) * (х - Н) 
кон