program dvi_progresijos;
  { 23 u‘davinys }
  function dbd (x, y : integer) : integer;
    { randa Did‘iausi… bendr… dalikl }
  begin
    if x = 0
       then dbd := y
       else dbd := dbd (y mod x, x)
  end;
  function  mbk (x, y : integer) : integer;
    { randa ma‘iausi… bendr… kartotin }
  begin
    mbk := x div dbd (x, y) * y
  end;
  function suma (n : integer) : integer;
    var a,           { pirmos progresijos pirmasis narys }
        da, db,      { bei abiej— progresij— skirtumai }
        narys,       { naujos progresijos pirmasis narys }
        d : integer; { naujos progresijos skirtumas }

  begin
    a := 17; da := 4;  { pirmoji progresija }
    db := 5;           { antroji progresija }
    d := mbk (da, db);
    narys := a + da;   { ‘inome, kad sutampa antrieji }
                       { progresij— nariai }
    suma := (2 * narys + d * (n - 1)) div 2 * n;
  end;

  var n : integer;
begin
  write ('­veskite n: ');
  readln (n);
  writeln (suma (n))
end.