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

Question

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

vara, b, t, M, R :integer;
function (x: integer): integer;
begin
F:=3*(x*x-16)+5;
end;

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

Answer 1

-43
Прогонял алгоритм через онлайн компилятор, но в ответе не уверен, так как нашлось немного ошибок и код пришлось чутка поправить

Answer 2

Вот так это работает, но я сомневаюсь, что такое задание придумали для решения без компьютера.

До входа в цикл: M=-20 R=F(-20)=1157

В цикле t=-20

В цикле t=-19

F(-19)=1040 < R=1157

M=-19 R=F(-19)=1040

В цикле t=-18

F(-18)=929 < R=1040

M=-18 R=F(-18)=929

В цикле t=-17

F(-17)=824 < R=929

M=-17 R=F(-17)=824

В цикле t=-16

F(-16)=725 < R=824

M=-16 R=F(-16)=725

В цикле t=-15

F(-15)=632 < R=725

M=-15 R=F(-15)=632

В цикле t=-14

F(-14)=545 < R=632

M=-14 R=F(-14)=545

В цикле t=-13

F(-13)=464 < R=545

M=-13 R=F(-13)=464

В цикле t=-12

F(-12)=389 < R=464

M=-12 R=F(-12)=389

В цикле t=-11

F(-11)=320 < R=389

M=-11 R=F(-11)=320

В цикле t=-10

F(-10)=257 < R=320

M=-10 R=F(-10)=257

В цикле t=-9

F(-9)=200 < R=257

M=-9 R=F(-9)=200

В цикле t=-8

F(-8)=149 < R=200

M=-8 R=F(-8)=149

В цикле t=-7

F(-7)=104 < R=149

M=-7 R=F(-7)=104

В цикле t=-6

F(-6)=65 < R=104

M=-6 R=F(-6)=65

В цикле t=-5

F(-5)=32 < R=65

M=-5 R=F(-5)=32

В цикле t=-4

F(-4)=5 < R=32

M=-4 R=F(-4)=5

В цикле t=-3

F(-3)=-16 < R=5

M=-3 R=F(-3)=-16

В цикле t=-2

F(-2)=-31 < R=-16

M=-2 R=F(-2)=-31

В цикле t=-1

F(-1)=-40 < R=-31

M=-1 R=F(-1)=-40

В цикле t=0

F(0)=-43 < R=-40

M=0 R=F(0)=-43

В цикле t=1

В цикле t=2

В цикле t=3

В цикле t=4

В цикле t=5

В цикле t=6

В цикле t=7

В цикле t=8

В цикле t=9

В цикле t=10

В цикле t=11

В цикле t=12

В цикле t=13

В цикле t=14

В цикле t=15

В цикле t=16

В цикле t=17

В цикле t=18

В цикле t=19

В цикле t=20

-43