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

var a,b,t,M,R,H :integer;
Function F\(H, x: integer\):integer;
begin
F := 11*\(x\-H\)*\(x\-H\)+13;
end;
BEGIN
readln\(H\);
a := -10; b := 30;
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\(R\)
END.