program h;
uses crt;
var a : integer;
b : real;
c:char;
begin
clrscr;
writeln('Sei4as ya otgadaiy zadumannoe');
write('Vami 4etnoe 4islo');
writeln('Zadumali?');
readln;
repeat  read(c);
writeln('Umnojte ego na 3');
readln;
writeln('Polu4ennoe proizvedenie');
write('razdelite na 3');
readln;
writeln('4astnoe umnojte na 3');
readln;
until (c = '');
writeln('Skolko poly4ilos?');
readln(a);
clrscr;
b:=(a div 9)*2;
writeln(b);
readln
end.