Çàäà÷à . èþíü-1

var s, n: integer;
begin
readln(s);
s := s + s mod 15
n := 8;
while s < 2007 do
begin
  if (s+n) mod 8 == 0 then
    s := s + 11;
  n := n + 23
end;
writeln(n)
end.

s = int(input())
s = s + s % 15
n = 8
while s < 2007:
    if (s +  n) % 8 == 0: 
        s = s + 11
    n = n + 23
print(n)

àëã
íà÷
öåë n, s
 ââîä s
s := s + mod(s, 15)
n := 8
íö ïîêà s < 2007
  åñëè mod (s + n, 8) = 0, òî
    s := s + 11
  n := n + 23
êö
 âûâîä n
êîí

#include <iostream>
using namespace std;

int main()
{ 
  int s, n;
  cin >> s;
  s = s + s % 15;
  n = 8;
  while (s < 2007) 
  { 
    if ((s + n) % 8 == 0)
      s = s + 11; 
    n = n + 23; 
  }
cout << n << endl;
return 0;
}