var k, s: integer;

begin

  s:=0;

  k:=1;

  while s < 66 do begin

    k:=k+3;

    s:=s+k;

  end;

  write(k);

var k, s: integer;

begin

  s:=1;

  k:=0;

  while k < 13 do begin

    s:=s+2*k;

    k:=k+4;

  end;

  write(s+k);

var n, s: integer;

begin

  n := 2;

  s := 35;

  while n <= 25 do begin

    s := s + 20;

    n := n + 5

  end;

  write(s)