program task1;

var
  i, s, p :integer;

begin

  write('Суммы, меньшие 52: ');
  s:= 0; p:= 1;
  for i:= 12 to 35 do
  begin
    s:= i + (i+1);
    p:= p * s;
    if s  < 52 then
      write(s:4);
    s:= 0;
  end;
  writeln(#10#13,'Произведение сумм чисел: ',p);

end.

--------------------------------------------------

program task2;

var
  a, b, c, d, g, max, s :integer;

begin

  readln(a,b,c,d);
  
  s:= 0; max:= a;
  if a > 0 then s:= s + a;
  if b > 0 then s:= s + b;
  if c > 0 then s:= s + c;
  if d > 0 then s:= s + d;
  if s > 20 then
  begin
    if b > max then max:= b;
    if c > max then max:= c;
    g:= max;
  end
  else
    g:= d;
  
  writeln('g = ',g);

end.