{ BookAdvice }
program BookAdvice(input, output);
var answer1, answer2, answer3 : string;
begin
	writeLn('数学的アプローチをとりますか？');
	readLn(answer1);
	if answer1='yes' then
		begin
		writeLn('プログラミングに興味がありますか？');
		writeLn('それとも理論に興味がありますか？');
		readLn(answer2);
		if answer2='プログラミング' then
			begin
			writeLn('D. Cooper and M. Clancy著');
			writeLn('"Oh, Pascal!"を薦めます．');
			end
		else
			begin
			writeLn('D. Harel著');
			writeLn('"Algorithmics"を薦めます．');
			end;
		end
	else
		begin
		writeLn('プログラミング中心の本がよいですか，');
		writeLn('それともコンピュータ科学の概論を知りたいですか？');
		readLn(answer3);
		if answer3='プログラミング' then
			begin
			writeLn('R. Pattis著');
			writeLn('"Karel the Robot"がお薦めです．');
			end
		else
			begin
			writeLn('A. Biermann著');
			writeLn('"Great Ideas in Computer Science"がお薦めです．');
			end;
		end;
end.