да, "королева времени" продолжение серии книг натальи щербы "часодеи".
о чем она :
"повезло детям из часодейного мира! утром накануне нового года они отмечают еще один праздник — день подарка под подушкой, причем подарки им приносит само время! но иногда все идет не так, как представлялось. феликс, олли и том уверены, что время что-то перепутало, и они получили совсем не те подарки, какие заслужили. но, может быть, ошибки еще можно исправить? пока бьют часы на старой башне, возможно все — добрые чудеса и злое колдовство, исполнение несбыточной мечты и крушение всех надежд только бы успеть до двенадцатого удара! "
уверена, что тебе понравится эта книга (ну или понравилась, если уже прочитала ее)
d = 7;
var
t: text;
c: char;
r: Integer;
begin
assign(t, 'input.txt');
reset(t);
r := 0;
while not eoln(t) do
begin
read(t, c);
r := (r * 3 + ord(c) - ord('0')) mod d
end;
close(t);
assign(t, 'output.txt');
rewrite(t);
if r = 0 then writeln(t, 'Да') else writeln(t, r);
close(t)
end.