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

Бейсик

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) * (х - Н) 
кон