Задача . 20053

var a,b,t,M,R:integer;
Function F(x: integer):integer;
begin
  F := 281 - 2*(17+x)*(17+x);
end;
BEGIN
  a := -7; b := 25;  
  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;
  writeln(R);
END.

#include<stdio.h>
int F(int x)
{
  return(281 - 2*(17+x)*(17+x)); 
} 
int main(void)
{ 
  int a, b, t, M, R; 
  a = -7; b = 25; 
  M = a; R= F(a); 
  for (t=a; t<= b; t++)
    {
    if (F(t) > R)  
     {
      M = t; 
      R= F(t); 
      }
    }
  printf(″%d\n″, R);
}