Çàäà÷à . Ï102

var a,b,t,M,R:integer;
Function F(x:integer):integer;
begin
  F := abs(abs(x-4)+abs(x+4)-12)+1
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.

#include <iostream>
using namespace std;
int F(int x) {
  return abs(abs(x-4)+abs(x+4)-12) + 1;
}
int main() {
  int a, b, M, R;
  a = -20; b = 20;
  M = a; R = F(a); 
  for(int t = a; t <= b; t++)
    if (F(t) <= R) {
      M = t;
      R = F(t);
    }
  cout << M;
  return 0;
}