write('Enter John points: ');
	read(john);

	write('Enter Richard points:');
	read(richard);

	// Первая часть
	if (john>21) then //proverka 1
	begin
		john := 0;
	end;

	if (richard>21) then //proverka 2
	begin
		richard := 0;
	end;

	// Вторая часть
	if (john=richard) then
	begin
		writeln('Draw!');
	end
	else
	begin
		if (john>richard) then
		begin
			writeln('Richard has lost this game, John win');
		end
		else
		begin
			writeln('John has lost this game, Richard win');
		end;
	end;