Артур всегда боялся знакомиться с девушками. дело даже не в природной стеснительности артура, и даже не столько в том, что артур не знает, о чем говорить с девушками. просто артур с детства не выговаривает букву «р» и этого стесняется. поэтому артур старается не произносить лишний раз слова, в которых есть эта ненавистная ему буква.однажды друзья познакомили артура с девушкой по имени нина (о, какое прекрасное она была очаровательна и болтлива, поэтому артуру почти не нужно было подбирать слова — она заполняла неловкую тишину за него. разумеется, он пригласил ее в кафе выпить чашечку кофе. артур даже продумал все свои реплики заранее: «счастлив тебя видеть», «ты сегодня восхитительна», «да, конечно, я внимательно тебя слушаю», «и что дальше? », «счет, » и, конечно, «я позвоню тебе на днях, не скучай».но, как известно, не бывает идеальных планов. все шло как по маслу, но вдруг, сидя за столиком в кафе, нина сказала, что ужасно не выспалась и не отказалась бы от n чашек кофе. и тут артур понял, что он не обдумал заранее, как он будет делать заказ. понятно, что нужно сказать что-то вроде: «сколько-то чашек кофе, », но вот сколько же чашек нужно, чтобы нина так и не поняла, что артур не выговаривает букву «р»? явно нужно заказать не меньше, чем n + 1 чашку — чтобы и нине досталось n чашек, и самому выпить, но вот сколько точно — артур не знает. денег у него не слишком много, поэтому заказывать больше, чем жизненно необходимо для того, чтобы избежать разоблачения, артур не хочет. артуру — посчитайте, сколько чашек кофе он должен заказать. входные данные вводится одно целое число n (1 ≤ n ≤ 2999). выходные данные выведите одно число — количество чашек кофе, которое должен заказать артур. входные данные 1 выходные данные 2 входные данные 12 выходные данные 15
var
i: integer;
s: string;
flag: boolean;
begin
readln(i);
flag := true;
while (flag) do
begin
inc(i);
str(i, s);
if (pos('3', s) + pos('4', s) = 0) then
flag := false;
end;
writeln(i);
end.